在annotate（）中插入自定义文本-R不起作用

已经有人问过了，但我找不到确切的答案。我想知道以下是否可行

我在ggplot2库中有一堆散点图数据，每个数据都有不同的平均值和标准偏差，以及观测值的数量。我想把这些信息打印在每个不同的绘图上。因此，我正在计算并希望打印带有注释的内容。我的工作如下：

m_axl5 <- as.character(round(mean(newdata$axl5), 5))
sd_axl5 <- as.character(round(sd(newdata$axl5), 5))
txt_m <- paste ("mean:", m_axl5)
txt_sd <- paste ("stdev:", m_axl5)
txt <-paste (txt_m, txt_sd, sep = '\n')
axl5 <- ggplot (newdata, aes(y=axl5, x= row.names(newdata))) + geom_point(position = position_jitter(w=0.1, h=0), colour= "red")+
    ggtitle("Axle 5 Weight - Match Error Difference") + xlab("") + ylab("Axle 5 Weight Match Error")
axl5 + theme(axis.ticks = element_blank(), axis.text.x = element_blank()) +annotate("text", x = 1, y = 10, label = txt)

由于我的研究，我找不到一种定制标签或在ggplot上注释文本的方法。如果有人能帮助我，或者如果这件事能早点完成，至少能指导我，我会非常高兴

谢谢。

您可以这样做，而不用使用annotate（）

plot.title = 'Axle 5 Weight - Match Error Difference'
plot.subtitle = paste(txt_m, txt_sd, sep = '-')

ggtitle(bquote(atop(.(plot.title), atop(.(plot.subtitle), ""))))

---

参考资料：

哦，哇，谢谢！从来没有想过用那种方式谷歌搜索！大帮忙：）

plot.title = 'Axle 5 Weight - Match Error Difference'
plot.subtitle = paste(txt_m, txt_sd, sep = '-')

ggtitle(bquote(atop(.(plot.title), atop(.(plot.subtitle), ""))))