使用R语言ggplot绘制双Y变量折线图时遇check_aesthetics错误求助

错误原因 #

你遇到的Aesthetics must be either length 1 or the same as the data错误，根源是第二个geom_line的写法不符合ggplot的美学映射规则：

• 当需要将数据集中的列（比如这里的chl）映射为y轴这类美学属性时，必须把这个映射关系放在aes()函数内部。
• 你直接写geom_line(y = chl, color = "green")，ggplot会把y = chl当成一个固定参数而非数据列映射，而chl是6个值的向量，和要求的"长度1或与数据行数匹配的映射"规则冲突，因此报错。

另外补充：第一个geom_line里的color = "blue"放在aes()里其实也有问题——这会把"blue"当成一个分类标签，而非直接指定颜色，最终图例显示的是这个标签，而非实际颜色的说明。

修正后的代码 #

方式1：修正原代码的映射问题 #

把第二个y = chl放进aes()，同时用scale_color_manual来指定实际颜色，确保图例正确：

ggplot(PhyChl, aes(x=time))+
  geom_line(aes(y = phyc, color = "phyc"))+
  geom_line(aes(y = chl, color = "chl"))+
  scale_color_manual(values = c("phyc" = "blue", "chl" = "green"))

方式2：使用长格式数据（ggplot推荐写法） #

ggplot更适配长格式数据，先把宽数据转换为长格式，再绘图会更简洁易维护：

# 加载tidyr包处理数据格式
library(tidyr)
# 转换为长格式
PhyChl_long <- pivot_longer(PhyChl, cols = c(phyc, chl), names_to = "variable", values_to = "value")

# 绘图
ggplot(PhyChl_long, aes(x = time, y = value, color = variable)) +
  geom_line() +
  scale_color_manual(values = c("phyc" = "blue", "chl" = "green"))

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