如何增加facet boxes和plot edges之间的space？

Question

我正在使用 facet_grid 在我的绘图中创建一个标题，该标题被白色背景色的黑框包围。我想知道如何增加带有标题的此框与绘图上边缘之间的 space。下面我展示了一个类似的情节，我给出了一个假代码来玩：

library(ggplot2)
library(cowplot)
library(ggpubr)
theme_set(theme_cowplot())

df1 <- data.frame(x = 1:12, y = (1:12)^2, grp=c('A', 'B', 'C'), depth=c("5m","5m","5m","5m"))

p1 <- ggplot(df1, aes(x, y, color=grp)) + geom_point() + facet_grid(.~depth) + 
  theme(strip.background = element_rect(colour = "black", fill = "white", size = 1.5, linetype = "solid"))
p1

有人知道怎么做吗？在分面框和图的上边缘之间增加 space 的替代方法也可以不使用 facet_grid。但是，我找不到另一种方法来绘制带有黑框的标题。如果你有其他方式而不是使用 facet_grid 欢迎。

Answer 1

使用@Dekike link：

ggplot(df1, aes(x, y, color=grp)) + 
  geom_point() + 
  facet_grid(.~depth) + 
  theme(strip.background.x = element_rect(colour = "black", fill = "white", size = 1.5, linetype = "solid"),
        strip.placement = "outside",
        strip.switch.pad.grid = unit(0.2, "in"))