基于ggplot()的双数据框图表无法添加图例，求问题排查

你的代码无法生成图例的核心问题是同时在aes()内部定义颜色映射，又在geom层外部硬指定colour/color参数，后者会覆盖映射关系，导致ggplot无法识别需要生成图例的元素。此外还有几处小错误：

具体错误点 #

• library(ggplot)拼写错误，正确包名是ggplot2
• df2的geom_line中，aes()里的colour值误写为"DF 1"，与df1重复，不符合需求
• scale_color_manual的breaks参数里，"DF2"少了空格，和前面映射的"DF 2"不匹配
• 所有geom层外部的colour/color硬编码会破坏映射，必须移除，把颜色控制交给scale_color_manual

修正后的代码 #

library(ggplot2)

df1 <- data.frame(YEAR=c(1990:2025),
                  OBS_VALUE=sample(1:36, 36, replace=FALSE))

df2 <- data.frame(YEAR=c(2000:2012),
                  OBS_VALUE=sample(1:36, 13, replace=FALSE))

ggplot() + 
  # df1折线：仅在aes内指定colour映射，移除外部colour参数
  geom_line(data = df1,
            mapping=aes(x=YEAR,y=OBS_VALUE, colour="DF 1"), size=.75) +
  # df2折线：修正colour映射值为"DF 2"，移除外部color参数
  geom_line(data=df2, mapping=aes(x=YEAR,y=OBS_VALUE, colour="DF 2"), 
            size=.5) + 
  # df2散点：移除外部color参数，保留aes内的colour映射
  geom_point(data=df2, mapping=aes(x=YEAR,y=OBS_VALUE, colour="DF 2"), 
             size=2) +
  labs(x=paste("Yearly history from",min(df1$YEAR)," to ",max(df1$YEAR)), 
       y="", subtitle="Test", title="Test") +
  # 修正breaks拼写错误，与映射值保持一致
  scale_color_manual(name='CED Data', breaks=c('DF 1', 'DF 2'),
                     values=c('DF 1'='black', 'DF 2'='red')) +
  theme(axis.title.x=element_text(size=9), axis.title.y=element_text(size=9),
        legend.position = c(0.15,0.8), 
        legend.title = element_text(size=9,face="bold"),
        plot.caption=element_text(hjust=0, size=8))

关键逻辑说明 #

• 只有在aes()内部定义的视觉属性（比如colour），ggplot才会将其与图例关联
• scale_color_manual负责将映射标签（"DF 1"、"DF 2"）对应到具体颜色，确保标签与颜色一一匹配
• 移除所有geom层外部的colour/color硬编码，让映射关系完全由aes和scale控制

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