geom_abline无法识别scale_color_manual自定义颜色的问题求助

问题根源 #

你遇到的问题核心是geom_line和geom_abline的颜色指定逻辑不同：

• geom_line里你把color="varA"放在aes()内部，这属于颜色映射——ggplot会把"varA"当作一个类别，去匹配scale_color_manual里定义的命名颜色。
• 而你给geom_abline用的colour="varC"是直接指定颜色名称，ggplot会去系统内置的颜色列表里查找"varC"，自然找不到，所以报错。

解决方案 #

把geom_abline的颜色也放进aes()内部，让它参与颜色映射，这样就能关联到scale_color_manual里的定义，同时自动生成对应的图例项：

df1 <- data.frame(year=c(1990, 1991, 1992, 1993, 1994),
                  varA=c(10.1, 12.2, 9.7, 11.2, 10.5))

df2 <- data.frame(year=c(1990, 1991, 1992, 1993, 1994),
                  varB=c(900, 780, 889, 910, 820))

cols <- c("varA" = "#D55E00", "varB" = "#0072B2", "varC" = "#D55E00")

varC_coef <- coef(lm(varA*0.2 ~ year, data = df1))

g2 <- ggplot() +
  geom_line(data=df1,
            aes(x=year, y=varA, color="varA"), 
            linewidth=1) +
  geom_line(data=df2,
            aes(x=year, y=varB/100, color="varB"), 
            linewidth=1) +
  # 将color放入aes()内，作为映射变量关联scale
  geom_abline(aes(intercept=varC_coef[1], 
                  slope=varC_coef[2], 
                  color="varC"),
              linewidth=1) +
  scale_color_manual(name=NULL,
                     values=cols,
                     labels=c("Variable A", "Variable B", "Variable C")
  )

g2

补充说明 #

• 如果只是想让geom_abline用指定颜色但不需要图例，可以直接调用cols里的颜色值：geom_abline(intercept=varC_coef[1], slope=varC_coef[2], colour=cols["varC"])，但这种方式不会生成图例项。
• 之前你设置show.legend = TRUE没生效，是因为只有通过aes()做颜色映射的元素，才会被纳入图例系统，直接指定颜色的元素无法生成图例。

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