删除条带背景保持面板边框

Question

我有以下类型的情节,并希望将每个条形文本保持在各个方面框上方作为各种各样的"标题",但没有默认的灰色背景和黑色边框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"))

Answer 1

如果设置element_blank()为strip.background,并保持element_rect(colour="black")对panel.border随后的上边缘panel.border为黑色.

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_blank(),
        panel.border = element_rect(colour = "black"))

Answer 2

设置panel.border可能会覆盖您的图表,除非您还添加fill=NA到panel.border:

theme(panel.border = element_rect(fill = NA, colour = "black"))

人们还可以使用:

theme(panel.background = element_rect(fill = NA, color = "black")

来源("面板属性"部分)