R语言ggplot中用线条连接均值geom_point的技术求助

你的问题核心是数据格式不符合ggplot的要求——当前写法是逐个添加点图层，没有给geom_line提供分组关联的数据。ggplot需要长格式数据（每一行对应一个观测），并通过group映射指定哪些点需要连线。

解决步骤： #

1. 整理数据为长格式并计算均值
   先把原始宽格式数据（每列对应一个组的速度）转换为长格式，同时计算每组的均值：

   library(tidyverse)
   
   # 转换长格式+计算均值
   wsd_summary <- wsd %>%
     # 拆分列名为基质和状态
     pivot_longer(
       cols = c(Mud_intact, Sand_intact, Mud_hair.cut, Sand_hair.cut),
       names_to = c("substrate", "condition"),
       names_sep = "_",
       values_to = "speed"
     ) %>%
     # 统一状态名称（把hair.cut改成hair cut）
     mutate(condition = ifelse(condition == "hair.cut", "hair cut", "intact")) %>%
     # 按基质和状态分组计算均值
     group_by(substrate, condition) %>%
     summarise(mean_speed = mean(speed, na.rm = TRUE)) %>%
     ungroup() %>%
     # 生成x轴的标签文本
     mutate(group_label = paste(substrate, condition))
   

2. 用整理好的数据绘图
   通过group映射指定连线的分组（状态：intact/hair cut），colour映射对应颜色，这样geom_line会自动连接同组的点：

   ggplot(wsd_summary, aes(x = group_label, y = mean_speed, 
                           group = condition, colour = condition)) +
     geom_point(size = 3) +
     geom_line() +
     # 自定义颜色匹配需求
     scale_colour_manual(values = c("intact" = "blue", "hair cut" = "red")) +
     labs(title = "Comparison of mean worm speed with/without hairs on different substrates",
          x = "Worm condition and Surface type",
          y = "Mean Speed") +
     theme_bw()
   

为什么之前的代码无效？ #

你之前逐个调用geom_point，每个点都是独立的图层，没有共享分组信息。geom_line需要明确的group映射来识别哪些点属于同一组，才能生成连线。通过长格式数据+分组映射，就能让ggplot自动处理连线逻辑。

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