如何在ggplot中添加两条垂直线并设置独立自定义图例

问题背景 #

需要在ggplot图表中添加两条自定义颜色的垂直线，并为它们生成独立的图例，同时不干扰原有Species分组的点图例。直接使用scale_color_manual会因为原有物种有3个类别，必须提供3个颜色值，且无法分离图例。

解决方案 #

方法1：使用同一颜色比例尺合并图例 #

通过将垂直线的标签映射到color美学，同时在scale_color_manual中包含所有物种和垂直线的颜色，再通过override.aes区分图例中的点和线：

library(ggplot2)

irate <- as.data.frame(iris)
irate$Species <- as.character(irate$Species)

# 定义垂直线数据
vlines <- data.frame(
  x = c(3, 4),
  label = c("阈值A", "阈值B")
)

irritating <- ggplot(irate) +
  geom_line(aes(y = Sepal.Length, x = Sepal.Width), color = "blue") +
  # 物种点的颜色映射
  geom_point(aes(y = Sepal.Length, x = Sepal.Width, color = Species), size = 5) +
  # 垂直线的颜色映射到自定义标签
  geom_vline(data = vlines, aes(xintercept = x, color = label), linetype = "dashed") +
  # 统一设置颜色比例尺，包含物种和垂直线的颜色
  scale_color_manual(
    name = "图例",
    values = c(
      "setosa" = "#FF3333",
      "versicolor" = "#33FF33",
      "virginica" = "#3333FF",
      "阈值A" = "black",
      "阈值B" = "purple"
    )
  ) +
  # 调整图例样式，区分点和线
  guides(
    color = guide_legend(
      override.aes = list(
        shape = c(16, 16, 16, NA, NA),  # 物种显示点，垂直线不显示点
        linetype = c("blank", "blank", "blank", "dashed", "dashed")  # 物种不显示线，垂直线显示虚线
      )
    )
  ) +
  theme(
    legend.position = "right",
    axis.text.y = element_blank(),
    axis.title.y = element_blank(),
    axis.ticks.y = element_blank(),
    panel.grid.major.y = element_blank()
  ) +
  labs(title = "The chart", x = "Sepal Width")

irritating

方法2：使用ggnewscale生成完全独立的图例 #

如果需要完全分离两个图例（一个物种点、一个垂直线），可以使用ggnewscale包添加额外的颜色比例尺，避免和原有比例尺冲突：

library(ggplot2)
library(ggnewscale)

irate <- as.data.frame(iris)
irate$Species <- as.character(irate$Species)

# 定义垂直线数据
vlines <- data.frame(
  x = c(3, 4),
  label = c("阈值1", "阈值2")
)

irritating <- ggplot(irate) +
  geom_line(aes(y = Sepal.Length, x = Sepal.Width), color = "blue") +
  # 第一个颜色比例尺：物种点
  geom_point(aes(y = Sepal.Length, x = Sepal.Width, color = Species), size = 5) +
  scale_color_discrete(name = "物种") +  # 可替换为scale_color_manual自定义物种颜色
  # 开启新的颜色比例尺
  new_scale_color() +
  # 垂直线使用新的颜色比例尺
  geom_vline(data = vlines, aes(xintercept = x, color = label), linetype = "dashed") +
  scale_color_manual(name = "阈值", values = c("阈值1" = "black", "阈值2" = "purple")) +
  theme(
    legend.position = "right",
    axis.text.y = element_blank(),
    axis.title.y = element_blank(),
    axis.ticks.y = element_blank(),
    panel.grid.major.y = element_blank()
  ) +
  labs(title = "The chart", x = "Sepal Width")

irritating

说明 #

• 方法1适合需要合并图例的场景，通过调整override.aes让图例同时显示点和线元素。
• 方法2适合需要完全独立图例的场景，ggnewscale允许在同一张图中使用多个同类型的美学比例尺（如多个color比例尺）。

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