r - 为使用 facet_wrap (ggplot2) 创建的每个子图添加标签

我对 ggplot2(和 R)很陌生，所以请耐心等待。使用 facet_wrap ，我创建了一个多面板图。我想用字母标记它们(从标有 (A) 的左上面板开始，然后用 (b) 等标记下一个面板。)但我不知道如何去做。我希望它位于情节之外(最好在每个面板的左上角)。

我遇到了 grid.text 和 ggtitle ，但我不确定如何实现这些以获得所需的结果。

我遇到了 this post 并且根据给定的答案似乎可以手动标记每个数字，但我希望标记按顺序自动完成。

我将非常感谢任何建议/指南。

最佳答案

p <- qplot(displ, hwy, data = mpg) + facet_wrap(~ cyl) +
    theme(panel.margin=unit(1,"line"))

library(gtable)
g <- ggplotGrob(p)
strips <- g$layout[grep("strip_t", g$layout$name), ]
titles <- lapply(paste0("(", letters[seq_len(nrow(strips))], ")"),
                 textGrob, x = 0, hjust = 0, vjust = 1)
g <- gtable_add_grob(g, grobs = titles,
                     t = strips$t, b = strips$b - 2,
                     l = strips$l, r = strips$r)
grid.newpage()
grid.draw(g)

关于r - 为使用 facet_wrap (ggplot2) 创建的每个子图添加标签，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/30094311/