如何用geom_line连接ggplot中指定的分组均值点？

问题根源 #

你当前的代码里，geom_point用了stat="summary"计算分组均值，但geom_line默认直接用原始数据绘制，没做均值聚合；同时dplyr的group_by(Gender)不会传递给ggplot的分组逻辑，导致连线混乱。

两种可行解决方案 #

方案1：先聚合数据再绘图（更直观可控）

先提前计算每个性别-单词组合的阅读时间均值，再用聚合后的数据绘图：

# 计算分组均值
GA_summary <- GA %>%
  group_by(Gender, Word) %>%
  summarise(Mean_Time = mean(Time, na.rm = TRUE), .groups = "drop")

# 绘制折线+散点图
ggplot(GA_summary, aes(x = Word, y = Mean_Time, color = Gender, group = Gender)) +
  geom_point() +
  geom_line()

方案2：在geom_line中也使用stat="summary"

直接在geom_line里指定统计方式，同时确保aes中设置group=Gender：

GA %>%
  ggplot(aes(x = Word, y = Time, color = Gender, group = Gender)) +
  geom_point(stat = "summary", fun = "mean") +
  geom_line(stat = "summary", fun = "mean")

额外注意事项 #

• 确保Word是有序因子：如果你的Word是字符型，x轴可能会按字母顺序排列，导致连线顺序错误。可以手动指定顺序：

# 替换成你实际的单词序列
GA$Word <- factor(GA$Word, levels = c("Word1", "Word2", "Word3"), ordered = TRUE)

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