r - 如何控制显示哪些 facet_wrap 标签

Question

在以下使用 facet_wrap , 双方 year和 model显示在绘图标签中。

library(tidyverse)
mpg %>%
  filter(manufacturer=='audi')%>%
  ggplot(aes(cty, hwy)) + 
  geom_point(aes(col = model)) +
  facet_wrap(year~model)

我们已经通过 model 为点着色了它显示在图例中，所以我们真的不需要 model在每个方面标签中。我们如何删除 model从标签？

Answer 1

最简单的方法是调整 labeler 函数以仅提取第一个变量的标签。你可以这样做

mpg %>%
  filter(manufacturer=='audi')%>%
  ggplot(aes(cty, hwy)) + 
  geom_point(aes(col = model)) +
  facet_wrap(~year+model, labeller=function(x) {x[1]})

另一种方法是创建一个交互变量，以便您只对一个变量进行分面，然后您可以更改标签以去除第二个值的名称。看起来像这样

mpg %>%
  filter(manufacturer=='audi')%>%
  ggplot(aes(cty, hwy)) + 
  geom_point(aes(col = model)) +
  facet_wrap(~interaction(year,model), labeller=as_labeller(function(x) gsub("\\..*$", "", x)))