如何在R语言的ggplot中为双折线图添加图例？

• 核心思路：ggplot的图例是基于**美学属性映射（aes）**自动生成的，需要把折线的类别作为数据中的一个变量，而非单独设置每条线的颜色/样式。

方法一：将宽格式数据转为长格式（推荐） #

这是ggplot最规范的用法，适配绝大多数场景：

1. 数据转换 #

假设你的原始数据是宽格式（含x轴列、两个对应不同折线的y轴列），用tidyr::pivot_longer转成长格式：

# 加载必要工具包
library(tidyr)
library(ggplot2)

# 示例宽格式数据（替换为你的实际数据）
df <- data.frame(
  x = 1:10,
  line_a = rnorm(10),
  line_b = rnorm(10)
)

# 转换为长格式
df_long <- df %>%
  pivot_longer(
    cols = c(line_a, line_b),  # 指定要合并的y轴列
    names_to = "line_category",# 新的折线类别列名称
    values_to = "y_value"      # 新的数值列名称
  )

2. 绘制带图例的折线图 #

将color（或linetype等视觉属性）映射到新的类别变量，ggplot会自动生成图例：

ggplot(df_long, aes(x = x, y = y_value, color = line_category)) +
  geom_line(linewidth = 1) +  # 设置线宽
  scale_color_manual(         # 自定义图例颜色
    values = c("line_a" = "darkred", "line_b" = "steelblue"),
    name = "折线类型"         # 修改图例标题
  ) +
  labs(
    x = "X轴标题",
    y = "Y轴标题",
    title = "带图例的双折线图"
  ) +
  theme_minimal()

方法二：不转换数据，手动映射美学属性 #

如果不想修改数据结构，可在每个geom_line的aes中手动指定类别，再用scale_color_manual定义图例：

ggplot(df, aes(x = x)) +
  geom_line(aes(y = line_a, color = "折线A"), linewidth = 1) +
  geom_line(aes(y = line_b, color = "折线B"), linewidth = 1) +
  scale_color_manual(
    values = c("折线A" = "darkgreen", "折线B" = "orange"),
    name = "折线类型"
  ) +
  labs(x = "X轴标题", y = "Y轴标题")

关键注意点 #

• 不要在geom_line外直接设置color = "xxx"（比如geom_line(color = "red")），这种方式不属于美学映射，ggplot不会生成图例。
• 所有需要出现在图例中的视觉属性（颜色、线型、点形等），都要放在aes()内部，映射到数据变量或手动指定的标识字符串。

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