如何消除facet_grid中灰色框中的标签？

Question

我希望能够移除右侧的那些标签，就是那些在灰色框中的标签。我来举个例子：

p <- ggplot(mtcars, aes(mpg, wt, col=factor(cyl))) + geom_point()
p + facet_grid(cyl ~ .)

提前致谢！

Juan

- Juan

---

可能是与https://dev59.com/22kv5IYBdhLWcg3wgRCc重复的问题。 - Curt F.

Answer 1

以下操作可以实现此功能：

p <- ggplot(mtcars, aes(mpg, wt, col=factor(cyl))) + geom_point()
p <- p + facet_grid(cyl ~ .)
p <- p +theme(strip.text.y = element_blank())

没有矩形

p <- ggplot(mtcars, aes(mpg, wt, col=factor(cyl))) + geom_point()
p <- p + facet_grid(cyl ~ .)
p <- p + theme(strip.background = element_blank(),
   strip.text.y = element_blank())

- Ruthger Righart

---

像这样吗？ ggplot(mtcars, aes(mpg, wt, col=factor(cyl))) + geom_point() + facet_grid(cyl ~ .) + theme(strip.text.y = element_blank(), strip.background = element_blank()) （这是一段R语言代码，用于生成散点图，并按车辆气缸数目将图形分面展示，同时自定义了一些图形元素的风格。） - Fredrik Karlsson

这是一个好的指针，但是侧边仍然有灰色矩形，有没有办法擦除它们？ - Juan

很好，@FredrikKarlsson！那就是它了。 - Juan

@Fredrik Karlsson：感谢您的建议，我已经在答案框中进行了更新，如果您允许的话；-) - Ruthger Righart

这是我还是这个不起作用（从ggplot手册中提取）：“ggplot（economics_long，aes（date，value））+ geom_line（）+ facet_wrap（〜variable，scales =“free_y”，nrow = 2）+ theme（strip.background = element_blank（），strip.text.y = element_blank（））”。 - PatrickT