Создайте рамку и заголовок для каждого столбца в `facet_wrap`

Question

Я хочу поместить черные рамки с метками и заголовками вокруг каждого фасета в facet_wrap. Нечто похожее на это:

Пример данных:

library(tidyverse)

mtcars %>% 
  mutate(gear = factor(gear, levels = c(4, 3, 5))) %>%
  ggplot(aes(mpg, disp)) + 
  geom_point() + 
  geom_smooth(method = "lm") + 
  facet_wrap(~am + gear)