ggplot2无法绘制多条折线问题求助

问题核心 #

你遇到的问题根源是长格式数据转换不规范，导致ggplot无法识别每个折线对应的完整分组数据。报错提示“每个组只有一个观测”，说明转换后的test_data_long中，每个variable分组下仅存在一行数据，自然无法连成折线。

正确解决步骤 #

1. 规范转换为长格式数据 #

你调用了reshape2库但未展示转换代码，必须明确指定保留samples作为标识列，将其余数值列转换为长格式：

library(reshape2)
# 转换长格式，指定samples为标识列
test_data_long <- melt(test_df, id.vars = "samples")

也可以用tidyverse生态的tidyr包（更推荐）：

library(tidyr)
test_data_long <- pivot_longer(test_df, cols = -samples, names_to = "variable", values_to = "value")

转换后的数据应为54行3列（18个样本 × 3个指标），示例结构如下：

head(test_data_long)
# 输出示例：
#          samples         variable    value
# 1 SRR7504771_sort MCBT_H37Rv_40_60 57782763
# 2 SRR7504771_sort MCBT_H37Rv_100_120 57782639
# 3 SRR7504771_sort MCBT_H37Rv_300_320 57781333
# 4 SRR7504772_sort MCBT_H37Rv_40_60 67674340
# 5 SRR7504772_sort MCBT_H37Rv_100_120 67674202
# 6 SRR7504772_sort MCBT_H37Rv_300_320 67672869

2. 重新绘制折线图 #

转换完成后，你的绘图代码即可正常运行，甚至无需手动指定group参数（colour会自动作为分组依据）：

library(ggplot2)

ggplot(data=test_data_long, aes(x=samples, y=value, colour=variable)) +
  geom_line() +
  theme(axis.text.x=element_text(angle=40, hjust=1))

失效原因说明 #

如果转换时未指定id.vars，melt会默认将所有列视为数值列拆分，导致samples列被破坏，最终每个variable仅对应一个观测值，无法形成连续折线。必须明确保留samples作为x轴的分组标识。

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