使用facet_wrap（ggplot2）创建的每个子图添加标签

Question

使用facet_wrap（ggplot2）创建的每个子图添加标签

5

我对ggplot2（和R）非常陌生，请见谅。使用facet_wrap，我创建了一个多面板图。我想用字母标记它们（从左上角的面板标记为(A)，下一个面板标记为(b)等），但我不确定如何做到这一点。我希望这位于图外（理想情况下在每个面板的左上角）。

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

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

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

- Joshlhj

2

可重现的示例在哪里？ - user3710546

1个回答

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- baptiste · Accepted Answer

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)

enter image description here