如何用ggplot绘制含重复样本的折线图？

你的数据是宽格式（每列对应一个样本），而ggplot最适合处理长格式数据（每一行对应一个观测）。下面是具体的解决步骤，比你原来手动添加geom_line的方法更简洁且可扩展：

步骤1：加载必要工具包 #

我们需要tidyverse（包含ggplot2、dplyr数据处理、tidyr数据重塑工具）：

library(tidyverse)

步骤2：读取并重塑数据 #

把宽格式的sample.csv转换为长格式，同时拆分列名得到组别（a/b/c/d/e）和重复编号（1-5）：

# 读取数据
df <- read.csv("sample.csv")

# 重塑为长格式
df_long <- df %>%
  pivot_longer(
    cols = -window,  # 排除window列，其他列转为键值对
    names_to = c("group", "replicate"),  # 列名拆分为"组别"和"重复"两个字段
    names_pattern = "(.)(.)"  # 正则匹配：第一个字符是组别，第二个是重复编号
  )

注：如果你的列名是a01这种带两位数字的格式，把names_pattern改成"(.)(\\d+)"即可。

步骤3：绘制折线图 #

这里提供两种常用的绘图方式：

方式一：显示所有重复样本的折线 #

同组样本用同一种颜色，通过透明度区分重复：

ggplot(df_long, aes(x = window, y = value, color = group, group = interaction(group, replicate))) +
  geom_line(alpha = 0.6) +  # alpha降低透明度，避免重叠杂乱
  scale_color_manual(
    name = "组别",
    values = c("a" = "red", "b" = "blue", "c" = "yellow", "d" = "black", "e" = "green")
  ) +
  labs(x = "window", y = "数值") +
  theme_bw()  # 简洁的黑白主题

• group = interaction(group, replicate)确保每个重复样本的折线独立绘制，不会同组连在一起。

方式二：叠加组均值折线（更突出趋势） #

先计算每组在每个window的均值，再叠加在重复样本折线上：

# 计算组均值
df_mean <- df_long %>%
  group_by(window, group) %>%
  summarise(mean_value = mean(value), .groups = "drop")

# 绘图
ggplot() +
  # 绘制重复样本折线，透明度更低
  geom_line(data = df_long, aes(x = window, y = value, color = group, group = interaction(group, replicate)), alpha = 0.4) +
  # 绘制均值折线，加粗突出
  geom_line(data = df_mean, aes(x = window, y = mean_value, color = group), linewidth = 1.2) +
  scale_color_manual(
    name = "组别",
    values = c("a" = "red", "b" = "blue", "c" = "yellow", "d" = "black", "e" = "green")
  ) +
  labs(x = "window", y = "数值") +
  theme_bw()

为什么这个方法更好？ #

相比你原来手动逐个添加geom_line的方式，长格式数据的处理方式：

• 无需手动编写多个geom_line，不管有多少重复样本都能一键处理
• 更容易扩展（比如后续增加组别或重复数，代码无需大改）
• 便于后续做统计分析（比如计算均值、标准差）

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