在ggplot2和facet_wrap中，如何删除所有边距和填充但保留strip.text？

Question

这可能主要是因为我误解了panel.margin = unit(...)函数中theme()的工作原理...但我无法按照我喜欢的方式自定义facet_wrap中的边距。基本上，我想要一个看起来像这样的facet_grid，每个facet中都有facet文本（即strip.text）插入，并且每个facet之间没有spcaing：

（我已经在粉红色的边框中留下来显示每个方面的尺寸）

所以这是迄今为止的代码。

设置数据并绘图：

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

完全删除strip.text

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

添加strip.text并将其插入

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)))

Answer 1

在theme()的可能参数列表中，不仅panel.margin（“facet panel（unit）周围的边距”，请参阅?theme），但方便的是，您也可以一次访问其中一个轴，分别为panel.margin.x和panel.margin.y（“facet面板周围的水平/垂直边距（单位;继承自panel.margin）”。）

因此，虽然将利润率降低到零以下会感觉有点像黑客，但以下情况会完成这项工作（您可能需要稍微调整一下价值 - unit(-2, "lines")最适合我）：

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

如果您使用strip.text = element_blank()，那么您应该使用panel.margin.y = unit(-0.5, "lines")。