r - 编辑 strip 大小 ggplot2

Question

我尝试应用此解决方案(How can I change the size of the strip on facets in a ggplot? 1)来更改 ggplot 中刻面的 strip 大小，我增加了高度大小

library(ggplot2)
library(gtable)

d <- ggplot(mtcars, aes(x=gear)) + 
            geom_bar(aes(y=gear), stat="identity", position="dodge") +
            facet_wrap(~cyl)

g <- ggplotGrob(d)
g$heights[[3]] = unit(5,"in")

grid.newpage()
grid.draw(g)

这就是我得到的，它只会增加 strip 顶部的空间(白色):


为什么它的工作方式不同？

Answer 1

一个简单的解决方案是指定 strip.text 的边距。适当的元素:

ggplot(mtcars, aes(x=gear)) + 
  geom_bar(aes(y=gear), stat="identity", position="dodge") +
  facet_wrap(~cyl) + 
  theme(strip.text.x = element_text(margin = margin(2,0,2,0, "cm")))