r - 使用facet_wrap时如何减少facet标签之间的垂直间距？

Question

我使用facet_wrap绘制了按两个因素分组的二维面板。

最小示例:

library(ggplot2)
ggplot(mpg, aes(displ, hwy)) +
    geom_point() +
    facet_wrap(~ cyl + drv)

每个面板顶部的标签有两行，我想减少两行标签文本之间的间距。我应该如何正确地做到这一点？

我尝试过:

ggplot(mpg, aes(displ, hwy)) +
    geom_point() +
    facet_wrap(~ cyl + drv) +
    theme(
        strip.text = element_text(
            margin = margin(t = 0, r = 0, b = 0, l = 0, unit = "pt")
        )
    )

但这没有用。

提前致谢。

Answer 1

您可以指定一个贴标机，将标签放入同一个 strip 中，而不是创建两个 strip :

ggplot(mpg, aes(displ, hwy)) +
  geom_point() +
  facet_wrap(~ cyl + drv, 
             labeller = function (labels) {
               labels <- lapply(labels, as.character)
               list(do.call(paste, c(labels, list(sep = "\n"))))
             })