使用ggplot2绘制多曲线时添加图例遇问题，求解决方案

你的问题根源在于直接在geom_line中设置color="red"这类固定值，这属于直接设置图形属性，ggplot不会将其识别为需要生成图例的变量映射。要生成图例，必须把颜色放到aes()内部，让ggplot将其视为分类变量，再手动指定颜色对应关系。以下是两种可行方案：

方案一：合并数据框（推荐，符合tidy data原则） #

先给两个数据框添加分组标识，再合并后统一绘图：

# 给数据框添加分组列
PeriodNaive2$method <- "PeriodNaive"
PeriodSmart2$method <- "PeriodSmart"
# 合并数据
combined_data <- rbind(PeriodNaive2, PeriodSmart2)

# 绘图
ggplot(combined_data, aes(x = log(V2), y = log(V1), color = method)) +
  geom_line(size = 1.35) +
  labs(x = "", y = "", color = "") # 可自定义图例标题，留空则无标题
  scale_color_manual(values = c(
    "PeriodNaive" = "red",
    "PeriodSmart" = "steelblue"
  )) +
  theme(
    panel.background = element_rect(fill = "white", color = "black", size = 0),
    panel.grid = element_line(color = "grey")
  )

方案二：不合并数据框，单独映射颜色 #

如果不想合并数据，可在每个geom_line的aes()中指定颜色的标签，再统一设置颜色映射：

ggplot() +
  geom_line(
    data = PeriodNaive2,
    aes(x = log(V2), y = log(V1), color = "PeriodNaive"),
    size = 1.35
  ) +
  geom_line(
    data = PeriodSmart2,
    aes(x = log(V2), y = log(V1), color = "PeriodSmart"),
    size = 1.35
  ) +
  labs(x = "", y = "", color = "") # 自定义图例标题
  scale_color_manual(values = c(
    "PeriodNaive" = "red",
    "PeriodSmart" = "steelblue"
  )) +
  theme(
    panel.background = element_rect(fill = "white", color = "black", size = 0),
    panel.grid = element_line(color = "grey")
  )

关键说明 #

• 把颜色放到aes()中后，ggplot会将字符串（如"PeriodNaive"）当作分类变量，自动生成图例框架。
• scale_color_manual用于指定每个分类对应的实际颜色，确保图例标签和曲线颜色匹配。

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