r - 将分面包裹图上的 strip 标签移动到每个图的内部

这是可重现的代码:

mpg %>%
    ggplot(aes(x = year, y = cty)) +
    geom_line() +
    geom_point() +
    facet_wrap(~manufacturer) +
    theme_bw() +
    theme(panel.grid.major = element_blank(),
          panel.grid.minor = element_blank(),
          strip.background = element_blank(),
          panel.border = element_rect(color = "black"),
          strip.text.x = element_text(vjust = -3))

我想将制造商名称 移动到图形 的内部(在每个图形的黑色边框内)，但是当我更改 vjust 参数时，制造商名称在图形后面被掩盖了。我该如何解决这个问题？

最佳答案

您可以使用 annotate 为每个图形添加标题并隐藏实际的分面标题以实现此效果。

mpg %>%
  ggplot(aes(x = year, y = cty)) +
  geom_line() +
  geom_point() +
  annotate("text", x= 2004, y = 30, label =unique(mpg$manufacturer))+
  facet_wrap(~manufacturer) +
  theme_bw() +
  theme(panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(),
        strip.background = element_blank(),
        panel.border = element_rect(color = "black"),
        strip.text.x = element_blank())

我可能错了，但我认为 facet_wrap 不支持该功能。

关于r - 将分面包裹图上的 strip 标签移动到每个图的内部，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/53178610/