在 facet_wrap 条文本中只显示一个变量标签？

Question

我正在使用 R 中 ggplot2 包中的 facet_wrap() 绘制多个图表。当按多个变量分面时，结果包括条带文本中的两个标签。我怎样才能删除一个？

在这个来自 mpg 数据集的玩具示例中，如何仅保留 cyl 标签？谢谢

ggplot(mpg, aes(displ, hwy)) +
  geom_point() +
  facet_wrap(c("cyl", "drv"))

Answer 1

对此最大的担忧是@aelwan 提到的几个地块将具有相同的条带标签但不相同。忽略这个问题，我认为最好的方法是在 cyl 和 drv 之间创建一个新的交叉变量。

因此，如果您只需要一行用于条带标签，例如：

ggplot(mpg %>% mutate(cyl_drv = paste0(cyl, '-', drv)), aes(displ, hwy)) +
  geom_point() +
  facet_wrap(~ cyl_drv)

然后您可以根据需要更改标签，如下所示：

ggplot(mpg %>% mutate(cyl_drv = paste0(cyl, '-', drv)), aes(displ, hwy)) +
  geom_point() +
  facet_wrap(~ cyl_drv, labeller = as_labeller(c(`4-4`="4", `4-f`="4", `5-f`=5, `6-4`=6, `6-f`=6, `6-r`=6, `8-4`=8, `8-f`=8, `8-r`=8)))

另一种（诚然不是很好）改变它的方法如下（我怀疑有更好的方法）：

library(ggplot2)
library(ggExtra)
library(grid)
library(gtable)
gg <- ggplot(mpg, aes(displ, hwy)) +
  geom_point() +
  facet_wrap(~ cyl * drv)

g1 <- ggplot(mpg, aes(displ, hwy)) +
  geom_point() +
  facet_wrap(~ cyl)

gtab <- ggplotGrob(gg)

gtab$grobs[[47]] <- ggplotGrob(g1)$grobs[[23]]
gtab$grobs[[48]] <- ggplotGrob(g1)$grobs[[23]]
gtab$grobs[[49]] <- ggplotGrob(g1)$grobs[[23]]
gtab$grobs[[50]] <- ggplotGrob(g1)$grobs[[22]]
gtab$grobs[[51]] <- ggplotGrob(g1)$grobs[[22]]
gtab$grobs[[52]] <- ggplotGrob(g1)$grobs[[22]]
gtab$grobs[[53]] <- ggplotGrob(g1)$grobs[[24]]
gtab$grobs[[54]] <- ggplotGrob(g1)$grobs[[24]]
gtab$grobs[[55]] <- ggplotGrob(g1)$grobs[[25]]

grid.draw(gtab)

在 facet_wrap 条文本中只显示一个变量标签？

Only show one variable label in facet_wrap strip text?

plot

r

facet

ggplot2

facet-wrap