我想使用以下代码在绘图的最后一个方面注释一些文本：
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")
它应该可以在不完全指定因子变量的情况下工作，但可能会引发一些警告：
