r - 在 ggplot2 中的各个方面注释文本

Question

我想使用以下代码在绘图的最后一个方面注释一些文本:

library(ggplot2)
p <- ggplot(mtcars, aes(mpg, wt)) + geom_point()
p <- p + facet_grid(. ~ cyl)
p <- p + annotate("text", label = "Test", size = 4, x = 15, y = 5)
print(p)

但是这段代码在每个方面都注释了文本。如何仅在一个方面获得带注释的文本？

Answer 1

函数annotate()将相同的标签添加到带有小平面的绘图中的所有面板。如果目的是向每个面板添加不同的注释，或仅向某些面板添加注释，则必须使用几何而不是annotate()。要使用几何图形，例如geom_text()，我们需要组装一个数据框，其中包含一列中的标签文本和要映射到其他美学的变量的列，以及变量(s) 用于分面。

通常你会做这样的事情:

ann_text <- data.frame(mpg = 15,wt = 5,lab = "Text",
                       cyl = factor(8,levels = c("4","6","8")))
p + geom_text(data = ann_text,label = "Text")

它应该在不完全指定因子变量的情况下工作，但可能会抛出一些警告: