如何在ggplot R中围绕2个堆叠的Facet Wrapped网格制作盒子？

Question

我希望在2个不同堆叠的小平面包裹网格周围添加一个方框。我目前的代码是：

p <- ggplot(data = mpg, aes(x = displ, y = hwy)) + 
  geom_point() + 
  facet_grid(~ drv)

q <- ggplot(data = mtcars, aes(mpg, wt)) + 
  geom_point() +
  facet_grid( ~ gear)

gridExtra::grid.arrange(p, q)

理想情况下，它看起来像：

请告诉我！提前谢谢！