在ggplot2中添加图例：解决scale_color_manual()无效问题

你的代码直接在geom_line()和geom_point()里硬指定color参数，这种方式不会触发ggplot2的图例生成——因为图例是基于美学映射（aes内的关联关系），而非单独设置颜色值。下面是可行的解决方法：

核心思路 #

把宽格式的数据转换为长格式，将R、M、A三个指标统一作为一个分类变量，然后在aes里把这个分类变量映射到color上，最后通过scale_color_manual指定对应颜色，就能自动生成图例。

完整代码 #

library(ggplot2)
library(tidyr) # 用于数据格式转换

data <- data.frame(
  R = c(0.9649789,0.9700804,0.9632690,0.9523244,0.9339738),
  M = c(0.2465927,0.2263204,0.2520991,0.2982259,0.3614747),
  A = c(0.1427684,0.1428706,0.1642165,0.1937662,0.2353444),
  D = c(20,15,10,5,2)
)

# 转换为长格式，并计算统一的y轴值（M和A转换到R的轴范围）
data_long <- data %>%
  pivot_longer(cols = c(R, M, A), names_to = "Indicator", values_to = "Value") %>%
  mutate(
    y = ifelse(Indicator == "R", Value, Value * 0.25 + 0.875)
  )

# 绘制图表
ggplot(data_long, aes(x = D, y = y, color = Indicator)) +
  geom_line() +
  geom_point(size = 3) +
  scale_y_continuous(
    name = 'R',
    sec.axis = sec_axis(~(.-0.875)/0.25, name = 'M and A')
  ) +
  scale_color_manual(
    values = c(
      "R" = "#6FB585",
      "M" = "#E8BF80",
      "A" = "#A8BF85"
    ),
    labels = c("R", "M", "A") # 可自定义图例标签
  ) +
  theme_minimal() # 可选，优化图表样式

关键说明 #

1. 数据格式转换：用pivot_longer把原宽表（每列一个指标）转成窄表，新增Indicator列记录指标名称（R/M/A），Value列记录对应数值，再通过mutate计算出适配主y轴的统一y值。
2. 美学映射：在ggplot()的aes里指定color = Indicator，让ggplot把不同指标和颜色关联起来，这是生成图例的核心。
3. 颜色自定义：scale_color_manual用来指定每个指标对应的颜色，和你原代码里的颜色保持一致。

内容的提问来源于stack exchange，提问作者吳海濱