如何在ggplot2中将两个geom_line合并到同一图例并显示线型？

核心问题出在没有让两类折线的颜色和线型映射到同一个分组变量，且未统一图例配置。下面是具体的解决步骤和代码示例：

关键思路 #

1. 给两类数据统一添加分组标识列，让ggplot2识别它们属于同一个图例体系
2. 在geom_line的aes中同时映射colour和linetype到分组变量
3. 用scale_color_manual和scale_linetype_manual统一指定颜色、线型，且保持图例名称一致
4. 若包含置信区间（geom_ribbon），需同步处理填充映射，避免生成多个图例

代码示例 #

1. 数据预处理（替换成你的真实数据） #

set.seed(123)
# 处理colors数据：按CYR分组的均值数据，添加分组列
colors <- expand.grid(CYR = 2015:2020, x = 1:10)
colors$y <- rnorm(nrow(colors), mean = colors$CYR - 2010, sd = 0.5)
colors_mean <- aggregate(y ~ CYR + x, data = colors, mean)
colors_mean$group <- as.character(colors_mean$CYR)

# 处理black_line数据：筛选2017-2019子集，计算均值+95%置信区间，添加分组列
library(dplyr)
black_line <- expand.grid(year = 2015:2020, x = 1:10)
black_line$y <- rnorm(nrow(black_line), mean = 5, sd = 0.3)
black_stats <- black_line %>%
  filter(year %in% 2017:2019) %>%
  group_by(x) %>%
  summarise(
    mean_y = mean(y),
    se = sd(y)/sqrt(n()),
    ymin = mean_y - 1.96*se,
    ymax = mean_y + 1.96*se
  ) %>%
  mutate(group = "2017-2019均值")

2. 绘图代码 #

library(ggplot2)

ggplot() +
  # 绘制colors分组折线：同时映射颜色和线型到group
  geom_line(data = colors_mean, aes(x = x, y = y, colour = group, linetype = group)) +
  # 绘制black_line虚线：同样映射颜色和线型到group
  geom_line(data = black_stats, aes(x = x, y = mean_y, colour = group, linetype = group)) +
  # 绘制置信区间：映射填充到group
  geom_ribbon(data = black_stats, aes(x = x, ymin = ymin, ymax = ymax, fill = group), alpha = 0.2) +
  
  # 手动指定颜色：给每个分组分配对应颜色
  scale_color_manual(
    name = "分组", # 所有scale的name必须一致，才能合并图例
    values = c(
      "2015" = "red", "2016" = "blue", "2017" = "green",
      "2018" = "orange", "2019" = "purple", "2020" = "brown",
      "2017-2019均值" = "black"
    )
  ) +
  
  # 手动指定线型：年份用实线，均值用虚线
  scale_linetype_manual(
    name = "分组",
    values = c(
      "2015" = "solid", "2016" = "solid", "2017" = "solid",
      "2018" = "solid", "2019" = "solid", "2020" = "solid",
      "2017-2019均值" = "dashed"
    )
  ) +
  
  # 手动指定填充：仅均值分组保留填充色，其他设为NA
  scale_fill_manual(
    name = "分组",
    values = c(
      "2015" = NA, "2016" = NA, "2017" = NA,
      "2018" = NA, "2019" = NA, "2020" = NA,
      "2017-2019均值" = "black"
    )
  ) +
  
  # 调整图例显示，避免重复或异常
  guides(
    colour = guide_legend(override.aes = list(fill = NA)), # 颜色图例隐藏填充
    fill = guide_legend(override.aes = list(colour = NA, linetype = 0)) # 填充图例隐藏线条
  )

常见问题排查 #

• 若之前只给单个geom_line映射linetype，ggplot2会拆分颜色和线型图例，必须两类折线都同时映射colour和linetype到同一个分组变量
• 确保scale_color_manual和scale_linetype_manual的name完全一致，否则图例无法合并
• 不需要置信区间的话，直接移除geom_ribbon和对应的scale_fill_manual即可

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