如何为双Y轴双数据集的geom_path绘图添加图例？

双Y轴图中无法生成图例的核心原因是直接在geom_path中硬编码颜色（color="xxx"），这种方式不会被ggplot识别为需要生成图例的美学映射。以下是具体修正方案：

核心修正思路 #

1. 将颜色定义放入aes()中，作为映射变量（而非硬编码）
2. 用scale_color_manual为每个映射标签指定对应颜色
3. 确保双Y轴的数值缩放匹配（右轴数据需先缩放适配左轴范围，再通过sec_axis反向转换）

修正代码示例（分数据集绘制） #

假设你的codbay包含date、y1、y2（对应左Y轴），frontAS包含date、y3、y4（对应右Y轴）：

library(ggplot2)

# 定义双Y轴缩放因子（根据实际数据范围调整）
y_scale <- 10

ggplot() +
  # CodBay数据集的两条曲线：颜色放入aes，指定图例标签
  geom_path(data = codbay, aes(x = date, y = y1, color = "CodBay 变量1")) +
  geom_path(data = codbay, aes(x = date, y = y2, color = "CodBay 变量2")) +
  # FrontAS数据集的两条曲线：先缩放Y值适配左轴，颜色放入aes
  geom_path(data = frontAS, aes(x = date, y = y3 * y_scale, color = "FrontAS 变量3")) +
  geom_path(data = frontAS, aes(x = date, y = y4 * y_scale, color = "FrontAS 变量4")) +
  # 设置双Y轴：右轴通过反向缩放还原真实数值
  scale_y_continuous(
    name = "左Y轴标题",
    sec.axis = sec_axis(~./y_scale, name = "右Y轴标题")
  ) +
  # 手动指定图例颜色，需与aes中的标签完全匹配
  scale_color_manual(
    name = "图例标题",
    values = c(
      "CodBay 变量1" = "#E63946",
      "CodBay 变量2" = "#1D3557",
      "FrontAS 变量3" = "#457B9D",
      "FrontAS 变量4" = "#A8DADC"
    )
  ) +
  # 可选：调整图例位置和主题
  theme_minimal() +
  theme(legend.position = "bottom")

更优雅的长格式数据方案 #

推荐将两个数据集合并为长格式，减少重复代码，更符合ggplot语法：

library(ggplot2)
library(dplyr)
library(tidyr)

y_scale <- 10

# 转换CodBay为长格式
codbay_long <- codbay %>%
  pivot_longer(-date, names_to = "var", values_to = "val") %>%
  mutate(group = paste("CodBay", var))

# 转换FrontAS为长格式并缩放Y值
frontAS_long <- frontAS %>%
  pivot_longer(-date, names_to = "var", values_to = "val") %>%
  mutate(group = paste("FrontAS", var), val = val * y_scale)

# 合并数据集
combined_data <- bind_rows(codbay_long, frontAS_long)

# 绘图
ggplot(combined_data, aes(x = date, y = val, color = group)) +
  geom_path() +
  scale_y_continuous(
    name = "左Y轴标题",
    sec.axis = sec_axis(~./y_scale, name = "右Y轴标题")
  ) +
  scale_color_manual(
    name = "图例标题",
    values = c(
      "CodBay y1" = "#E63946",
      "CodBay y2" = "#1D3557",
      "FrontAS y3" = "#457B9D",
      "FrontAS y4" = "#A8DADC"
    )
  ) +
  theme_minimal()

常见排查点 #

• 检查是否存在theme(legend.position = "none")代码，会隐藏图例
• 确保aes(color = "标签")中的标签与scale_color_manual(values)中的键完全一致（大小写、空格都要匹配）
• 双Y轴仅适用于有直接关联的变量对比，避免滥用导致数据误导

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