使用facet_grid为每个单独的图添加标签

Question

我正在尝试在以下facet_grid的每个图中添加标签（大写字母）：

p <- ggplot(mpg, aes(displ, cty)) + geom_point()
p + facet_grid(drv ~ cyl)

这将输出：

我想拥有的是： 我遇到的主要问题是1）我的Y轴可以自由缩放，因此无法输入每个坐标的特定坐标。 2）我不确定我应该在这里搜索哪些关键字，我敢肯定facet_grid中可以找到一种方法，但是我找不到它。

Answer 1

这个怎么样？将标签的位置固定在每个绘图面板的左上角：

 p + facet_grid(drv ~ cyl)+ annotate('text', label = LETTERS[1:12], x=min(mpg$displ), y=max(mpg$cty))

您可以随意替换标签= c（'aaa'，'bb'，'fff'....），但必须与面图数量相同。

您还可以使用以下方法来微调标签位置，使其与两个轴成比例：

x=mean(mpg$displ)*0.6, y=max(mpg$cty)*0.97