向使用facet_wrap（ggplot2）創建的每個子圖添加標籤

Question

對於ggplot2（和R）我很新，所以請耐心等待。使用facet_wrap，我創建了一個多面板圖。我想用字母來標記它們（從（A）標記的左上角面板開始，下一個面板用（b）等等）。但我不知道如何去做這件事。我希望它位於情節之外（理想情況是在每個面板的左上角）。

我碰到了grid.text和ggtitle，但我不確定我將如何實現這些以獲得理想的結果。

我遇到了this post，並給出了答案，似乎可以手動標記每個圖形，但我希望標籤按順序自動完成。

我會深表謝意任何建議/指南。

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)