在ggplot2和facet_wrap中，如何删除所有边距和内边距，同时保留strip.text？

这可能主要是由于我误解panel.margin = unit(...)了theme()函数的工作原理……但是我无法按照自己想要的方式在facet_wrap中自定义边距。基本上，我想要一个facet_grid像这样，strip.text在每个构面中都插入有构面文本（即），并且每个构面之间都没有缝隙：

（我留在粉红色的边框中显示每个构面的尺寸）

所以这是到目前为止的代码。

设置数据并绘制：

library(ggplot2)
library(grid)
p <- ggplot() +
  geom_bar(data = mtcars, aes(x = cyl, y = qsec), stat = 'identity') +
  facet_wrap( ~ carb, ncol = 3)

mytheme <- theme_minimal() + theme(
  axis.text.x = element_blank(),
  axis.text.y = element_blank(),
  axis.ticks = element_blank(),
  axis.title = element_blank(),
  panel.margin = unit(0, "lines"),
  panel.border = element_rect(colour = rgb(1.0, 0, 0, 0.5), fill=NA, size=1)
)

 p + mytheme

p + mytheme + theme(strip.text = element_blank())

p + mytheme +
     theme(strip.text = element_text(size = rel(3.0), vjust = -4.0))

重新包含strip.text（以及增加的相对大小）会增加两行之间的垂直边距。所以在这一点上，我不知道如何缩小顶部和底部行之间的垂直间隙。

p + mytheme +
    theme(strip.text = element_text(size = rel(3.0), vjust = -4.0), 
          panel.margin = unit(c(-2, -2), "lines"))

那么，如何仅将两行之间的panel.margin作为目标？

编辑：其他信息。行之间的空间似乎是strip.background：

p + mytheme +
        theme(strip.text = element_text(size = rel(3.0), vjust = -4.0),
              panel.margin = unit(-1, "lines"),
              strip.background = element_rect(fill = rgb(0, 1.0, 0, 0.2)))