使用ggpubr在箱线图上添加平均值

我正在尝试使用ggpubr包在箱线图上添加标签。以下是我使用的代码：

library(ggplot2)
library(ggpubr)
compare_means(len ~ supp, data = ToothGrowth, method="t.test", paired=TRUE, group.by = "dose")
# Box plot facetted by "dose"
p1 <- ggboxplot(ToothGrowth, x = "supp", y = "len", xlab=F,
      color = "supp", palette = "jco",
      facet.by = "dose", add="mean", short.panel.labs = FALSE)
# Use only p as label.
p2 <- p1 + stat_compare_means(method = "t.test", paired = T,  label = "p")
p2

是否有任何方法将平均值添加为文本（除了使用：add=“mean”的点之外）

如果可能的话，我想把均值文本放在“p=0.000”下面，它来自“stat\u compare\u means”代码

此外，是否有方法删除在对绘图进行分组时自动生成的图例

我要绘制的最后一个图如下所示：

将平均值作为文本添加到箱线图上

删除顶部的图例

提前谢谢

你可以试试

p1 + stat_compare_means(method = "t.test", paired = T,  label = "p", label.x = 0.8)+ 
     stat_summary(fun.data = function(x) data.frame(y=32, label = paste("Mean=",mean(x))), geom="text") +
     theme(legend.position="none")

---

平均值应该在哪里？中位数？@erocoar低于p值是不错的，但任何地方都是好的。请修改您的问题，并包含一些数据和代码。我无法打开链接。@Jimbou我刚刚修改了问题。谢谢

p1 + stat_compare_means(method = "t.test", paired = T,  label = "p", label.x = 0.8)+ 
     stat_summary(fun.data = function(x) data.frame(y=32, label = paste("Mean=",mean(x))), geom="text") +
     theme(legend.position="none")