R ggplot在剧情上方添加文字

Question

我的数据包含变量log R ratio，sample_id和replicate。 我用ggplot制作了一个箱形图。

replicate_to_R$replicate <-factor(replicate_to_R$replicate, levels=c( "3", "4", "8","12" ), labels=c("3", "4", "8","12"))

replicate_to_R$sample_id <-factor(replicate_to_R$sample_id, levels=c(74,76,78,79,80), labels=c(18,20,22,23,24))
# boxplot
ggplot(aes(y=logRratio, x=sample_id, fill=replicate), data=replicate_to_R) + 
geom_boxplot(outlier.shape=NA) + scale_y_continuous(limits=c(-1,1)) + 
scale_fill_manual(values=c("steelblue4","steelblue3","steelblue2","steelblue1")) + theme(panel.grid.major.x =element_blank()) + 
theme(panel.background = element_blank()) + 
theme(axis.text = element_text(size=14, color="black")) 

我想在图表的顶部添加每个样本的通话率信息。有没有办法将这些额外的信息添加到情节中？

Answer 1

ggplot2图形使用grid图形系统，因此您可以使用grid函数对它们进行注释：

library("grid")
grid.text("my text", x = 0.5, y = 0.5)

会将文本置于图形窗口中。加载包后请参阅?grid.text以获取有关坐标系的详细信息，但基本上，默认系统是相对于整个图形窗口的。