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

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

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)

但是此代码在每个方面都对文本进行了注释。如果您指导我如何仅在一个方面获得带注释的文本，我将不胜感激。

最佳答案

通常，您会执行以下操作:

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")

它应该在没有完全指定因子变量的情况下工作，但是可能会引发一些警告:

关于r - 在ggplot2中的各个方面上注释文本，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/11889625/