从多面画布上隔开`facet_grid`条？

Question

请考虑来自?ggplot2::facet_grid的以下示例：

p <- ggplot(mpg, aes(displ, cty)) + geom_point()
p + facet_grid(vars(drv), vars(cyl))

结果如下图所示

我要实现的是在刻面标签的strip与实际图之间有一个较小的偏移量/空白。结果看起来（没有gimp参与）：

可以使用ggplot2或其任何派生软件包吗？

谢谢您的见解。

Answer 1

有一个选项strip.switch.pad.grid，但仅当您激活switch参数

时，该选项才有效

library(ggplot2)
theme_set(theme_bw(base_size = 14))

p <- ggplot(mpg, aes(displ, cty)) + geom_point()
p + facet_grid(vars(drv), vars(cyl), 
               switch = 'y') +
  theme(strip.placement = 'outside') +
  theme(strip.switch.pad.grid = unit('0.25', "cm"))

^{由reprex package（v0.2.1）于2019-05-15创建}

Answer 2

在上面@Tung的分析器（以及一些忽略文档的实验）之后，我开始使用它了：

p <- ggplot(mpg, aes(displ, cty)) + geom_point() 
p +
  facet_grid(vars(drv), vars(cyl)) +
  theme(strip.switch.pad.grid = unit(0.2, "cm"), strip.placement = "outside")

然后……多田！：