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

Question

我对 ggplot2（和 R）还很陌生，所以请多多包涵。使用 facet_wrap，我创建了一个多面板图。我想用字母标记它们（从左上角标有 (A) 的面板开始，下一个面板标有 (b) 等等。）但我不确定如何去做。我希望它位于绘图之外（最好位于每个面板的左上角）。

我遇到了 grid.text 和 ggtitle，但我不确定我将如何实施这些以获得预期的结果。

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

我将非常感谢任何 advice/guides。

Answer 1

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)

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

Add labels to each subplots created using facet_wrap (ggplot2)

r

ggplot2

facet-wrap