相关疑难解决方法(0)

我有以下类型的情节,并希望将每个条形文本保持在各个方面框上方作为各种各样的"标题",但没有默认的灰色背景和黑色边框strip.background.我色IT白领这是接近我想要什么,但希望的底部边缘strip.background或顶部边缘panel.border为黑色.

library(ggplot2)

ggplot(mtcars, aes(mpg, hp)) + geom_point() +
    facet_wrap(~carb, ncol = 3) + theme_bw() +
    theme(panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(),
        strip.background = element_rect(colour="white", fill="white"),
        panel.border = element_rect(colour = "black"))

我试图应用这个解决方案(如何在ggplot中更改小平面上的条带大小？1)更改ggplot中小平面上的条带大小,我增加了高度大小

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)

这是我得到的,它只增加了条带顶部的空白(白色):

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