在ggplot 2中在各个方面注释文本

Question

在ggplot 2中在各个方面注释

我想用以下代码对情节的最后一个方面进行注释：

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

通常你会这样做：ann_text&nbsp;<-&nbsp;data.frame(mpg&nbsp;=&nbsp;15,wt&nbsp;=&nbsp;5,lab&nbsp;=&nbsp;"Text", &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;cyl&nbsp;=&nbsp;factor(8,levels&nbsp;=&nbsp;c("4","6","8")))p&nbsp;+&nbsp;geom_text(data&nbsp;=&nbsp;ann_text,label&nbsp;=&nbsp;"Text")它应该在不完全指定因子变量的情况下工作，但可能会引发一些警告

Answer 2

我认为上面的答案=“文本”是无用的，下面的代码也没问题。ann_text&nbsp;<-&nbsp;data.frame(mpg&nbsp;=&nbsp;15,wt&nbsp;=&nbsp;5, &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;cyl&nbsp;=&nbsp;factor(8,levels&nbsp;=&nbsp;c("4","6","8")))p&nbsp;+&nbsp;geom_text(data&nbsp;=&nbsp;ann_text,label&nbsp;=&nbsp;"Text"&nbsp;)但是，如果您想在不同的子图中进行不同的标记，可以这样做：ann_text&nbsp;<-&nbsp;data.frame(mpg&nbsp;=&nbsp;c(14,15),wt&nbsp;=&nbsp;c(4,5),lab=c("text1","text2"), &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;cyl&nbsp;=&nbsp;factor(c(6,8),levels&nbsp;=&nbsp;c("4","6","8")))p&nbsp;+&nbsp;geom_text(data&nbsp;=&nbsp;ann_text,aes(label&nbsp;=lab)&nbsp;)