如何为R语言ggplot绘制的多折线图添加图例

问题原因 #

你当前的代码无法自动生成图例的核心原因是：你为每个分组、每个指标单独调用geom_line，且颜色参数直接写在aes()映射外，ggplot不会将这类手动指定的全局样式关联到自动图例。

解决方案1（推荐：符合ggplot设计规范） #

核心思路是先整理数据结构，将基准、组合两个数据集合并后转换为长格式，再通过映射自动生成图例，后续维护和修改更灵活。

library(tidyverse)

# 为两个数据集添加分组标识
benchmark <- benchmark %>% mutate(group = "基准")
portfolio <- portfolio %>% mutate(group = "组合")

# 合并数据集，再转换为长格式，把EM、CB转为统一的指标列
plot_data <- bind_rows(benchmark, portfolio) %>%
  pivot_longer(cols = c(EM, CB), names_to = "indicator", values_to = "value")

# 绘图
ggplot(plot_data, aes(x = Date, y = value, color = group, linetype = indicator)) +
  geom_line() +
  # 自定义颜色和图例标题
  scale_color_manual(values = c("基准" = "black", "组合" = "red")) +
  labs(color = "分组", linetype = "指标")

上述代码通过color映射区分基准/组合，linetype映射区分EM/CB两个指标，你可以根据需求调整映射规则和样式。

解决方案2（无需修改数据：快速实现） #

如果不想调整原有数据结构，可以把颜色参数移入aes()内，手动指定每个图层的映射标签，再通过scale_color_manual绑定样式即可生成图例：

ggplot() +
  geom_line(benchmark, mapping=aes(Date, EM, color = "基准_EM"))+
  geom_line(portfolio, mapping=aes(Date, EM, color = "组合_EM")) +
  geom_line(benchmark, mapping=aes(Date, CB, color = "基准_CB"))+
  geom_line(portfolio, mapping=aes(Date, CB, color = "组合_CB")) +
  scale_color_manual(
    name = "图例",
    values = c("基准_EM" = "black", "组合_EM" = "red", "基准_CB" = "black", "组合_CB" = "red"),
    labels = c("基准-EM", "组合-EM", "基准-CB", "组合-CB")
  )

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