如何在ggplot中仅为两组各时间点的均值添加geom_label标签

我明白你的问题啦——直接用原始数据加geom_label确实会把每个数据点都标出来，想要只显示每组每个时间点的均值标签，关键是先提前计算好各组各时间点的均值数据，再用这个汇总数据来加标签就行～

我们分成两步来实现，先提取均值数据，再用它来添加标签：

1. 计算各组各时间点的均值 #

你之前用了plyr包的ddply，那我们继续用它来生成均值数据集：

# 确保已加载plyr包（未安装的话先运行install.packages("plyr")）
library(plyr)

# 按治疗组（alpha）和时间点（time）分组，计算目标指标的均值
mean_dat <- ddply(dat, .(alpha, time), function(x){
  # 替换your_value_column为你实际要计算均值的数值列名
  data.frame(mean_value = mean(x$your_value_column, na.rm = TRUE)) 
})

如果你习惯用dplyr的语法，代码会更简洁直观：

library(dplyr)

mean_dat <- dat %>%
  group_by(alpha, time) %>%
  # 替换your_value_column为目标数值列名，na.rm=TRUE用于忽略缺失值
  summarise(mean_value = mean(your_value_column, na.rm = TRUE), .groups = "drop")

2. 绘图时添加均值标签 #

接下来在ggplot中，先用原始数据绘制基础元素（比如散点、均值红线），再用提前计算好的mean_dat来添加标签，这样就只会显示每组每个时间点的均值标签了：

library(ggplot2)

ggplot(data = dat, aes(x = time, y = your_value_column, color = factor(alpha))) +
  # 可选：绘制原始数据点，用alpha参数降低透明度避免重叠
  geom_point(alpha = 0.5) +
  # 绘制均值红线（用stat_summary自动计算均值并画线）
  stat_summary(fun = mean, geom = "line", color = "red", size = 1) +
  # 添加均值标签，指定数据源为mean_dat
  geom_label(data = mean_dat, aes(y = mean_value, label = round(mean_value, 2)), 
             color = "red", fontface = "bold") +
  # 自定义图例和坐标轴标签
  labs(color = "治疗组", x = "时间点", y = "指标值") +
  theme_minimal()

注意替换代码中的your_value_column为你实际分析的数值列名，round(mean_value, 2)是把均值保留两位小数，让标签更整洁易读。

这样操作后，你就能得到治疗组A（alpha=0）和B（alpha=1）每个时间点各一个均值标签，完全符合你要的4个标签的需求～

内容的提问来源于stack exchange，提问作者LucaS