R ggplot2：如何跨子组箱线图绘制两组的平均线？

我有13个站点被分为两组，我使用ggplot2为每个站点绘制了一个值的箱线图。它们根据填充颜色按组进行标识。我如何添加一条平均线，显示两组的平均值，跨越每个组的现场箱线图？（即，一条平均线穿过第1组的方框，一条线穿过第2组）

我尝试过使用“stat_summary（）”，但只能让它为各个站点的每个平均值绘制线，而不是整个组的平均值。（图中显示了各个平均线，而不是我想要的）

---

我期望两条平均线，每组一条，延伸到每个组的站点框。相反，我为每个站点框得到一条平均线。

例如，

geom\u hline

将使您在整个图表中得到一条水平线，

geom\u段

可以生成一条较短的线（，）

例如，

geom\u hline

将使您在整个图表上画出一条水平线，

geom\u segment

可以画出一条较短的线（，）

ggplot(data, aes(y = value, x=site, fill=group)) +
  geom_boxplot() + labs(y="value")+
  theme_classic() +
  theme(legend.position="bottom", 
        axis.title.x=element_blank(),
        axis.ticks.x=element_blank(), 
        text=element_text(size=15)) +
  scale_fill_manual(values=c("#E69F00", "#56B4E9"), name="group", 
                    labels=c("1", "2")) +
  stat_summary(fun.y = mean, geom = "errorbar", 
               aes(ymax = ..y.., ymin = ..y.., group =factor(mgmt)),
               width = 0.75, linetype = "dashed")