ggplot绘制多线折线图报错：data需为数据框而非数值向量

问题说明 #

现有ndiversity数据集包含Quadrant、nta.shannon、ntb.shannon、ntc.shannon列，目标是将三类shannon值以折线形式绘制在同一图中，但运行指定代码时触发错误：

data must be a data frame, or other object coercible by fortify(), not a numeric vector

数据集 #

> ndiversity
 Quadrant nta.shannon ntb.shannon ntc.shannon
1        1    2.188984   0.9767274   1.8206140
2        2    1.206955   1.3240481   1.3007058
3        3    1.511083   0.5805081   0.7747041
4        4    1.282976   1.4222243   0.4843907
5        5    1.943930   1.7337267   1.5736545
6        6    2.030524   1.8604619   1.6860711
7        7    2.043356   1.5707110   1.5957869
8        8    1.421275   1.4363365   1.5456799

出错代码 #

ggplot(ndiversity,aes(x=Quadrant,y=Diversity,colour=Transect))+
       geom_point()+
       geom_line(aes(y=nta.shannon),colour="red")+
       geom_line(aes(y=ntb.shannon),colour="blue")+
       geom_line(aes(y=ntc.shannon),colour="green")

错误原因 #

• 全局aes映射中声明了y=Diversity和colour=Transect，但你的数据集里根本没有这两列。ggplot无法找到对应数据，尝试解析时把单个数值向量当作数据传入，从而触发错误。
• 虽然你在geom_line里单独指定了y值，但全局映射的错误已经导致基础数据解析失败。

解决方法 #

推荐方案：转长格式绘图（ggplot标准用法） #

ggplot更适合处理长格式数据，这种方式代码更简洁，后续维护也更方便：

1. 转换数据格式
   用tidyr包将宽格式转为长格式，把三个shannon列合并为类别和数值两列：

library(tidyr)
library(ggplot2)

ndiversity_long <- pivot_longer(ndiversity, 
                                cols = c(nta.shannon, ntb.shannon, ntc.shannon),
                                names_to = "Transect",  # 存储类别（如nta.shannon）
                                values_to = "Diversity")  # 存储对应的shannon值

2. 绘制多折线图
   基于长格式数据，只需一次geom_line即可完成绘图，还能自动生成图例：

ggplot(ndiversity_long, aes(x = Quadrant, y = Diversity, colour = Transect)) +
  geom_point() +
  geom_line() +
  # 手动设置颜色，匹配你最初的需求
  scale_colour_manual(values = c(
    "nta.shannon" = "red", 
    "ntb.shannon" = "blue", 
    "ntc.shannon" = "green"
  ))

备选方案：保留宽格式直接绘图（不推荐） #

如果坚持使用原宽格式，需要删除全局aes里不存在的映射，在每个geom里单独指定完整映射：

ggplot(ndiversity, aes(x = Quadrant)) +
  geom_point(aes(y = nta.shannon), colour = "red") +
  geom_point(aes(y = ntb.shannon), colour = "blue") +
  geom_point(aes(y = ntc.shannon), colour = "green") +
  geom_line(aes(y = nta.shannon), colour = "red") +
  geom_line(aes(y = ntb.shannon), colour = "blue") +
  geom_line(aes(y = ntc.shannon), colour = "green")

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