如何在ggplot图例中同时指定geom_hline的颜色和线型？

问题说明 #

在展示四个分类变量（manufacturer、year、road、drv）和一个数值变量（mpg）时，用geom_hline绘制筛选阈值，要求每条阈值线的颜色和线型在图表及图例中都能区分。当前图表中线条的颜色和线型可区分，但图例仅能区分线型，且两条线都显示为第二条线的颜色。尝试将color放入geom_hline的aes()中后，所有线条变黑；在scale_color_manual()中添加阈值对应的颜色并结合aes的color参数也未解决问题，需要保留facet_wrap功能，阈值数值不在原始数据集中。

解决方案 #

核心思路是将阈值信息单独构建为一个小数据集，通过一次geom_hline调用完成两条线的绘制，同时在aes中映射color和linetype到阈值名称，再分别通过scale_color_manual和scale_linetype_manual指定对应样式，最后调整图例避免冲突。

修改后的代码 #

library(tidyverse)
library(ggplot2)

# 整理原始数据
mpg_lngr <- mpg %>% 
  pivot_longer(cols = c(cty, hwy), names_to = "road", values_to = "mpg") 

# 构建阈值数据集：包含阈值名称、y轴截距、对应颜色和线型
thresholds <- tibble(
  level = c("gas guzzler", "awesome"),
  yintercept = c(12, 27),
  color = c("#d95f02", "#1b9e77"),
  linetype = c("solid", "dotted")
)

ggplot(mpg_lngr, aes(x = manufacturer, y = mpg)) +
  # 用阈值数据集绘制水平线，映射color和linetype到阈值名称
  geom_hline(data = thresholds, 
             aes(yintercept = yintercept, 
                 color = level, 
                 linetype = level)) +
  geom_point(aes(color = as.factor(year), shape = road)) +
  # 设置点的形状
  scale_shape_manual(values = c("cty" = 2, "hwy" = 17)) +
  # 设置y轴标签
  scale_y_continuous(name = "miles per gallon") +
  # 分别设置点的颜色和水平线的颜色，用limits确保顺序匹配
  scale_color_manual(
    values = c(
      "1999" = "#e7298a", 
      "2008" = "#7570b3",
      "gas guzzler" = "#d95f02", 
      "awesome" = "#1b9e77"
    ),
    limits = c("1999", "2008", "gas guzzler", "awesome")
  ) +
  # 设置水平线的线型
  scale_linetype_manual(
    values = c("gas guzzler" = "solid", "awesome" = "dotted"),
    limits = c("gas guzzler", "awesome")
  ) +
  # 调整图例：将水平线的color和linetype合并为一个图例，分开点的颜色和形状
  guides(
    color = guide_legend(
      title = "year",
      override.aes = list(linetype = 0) # 隐藏年份图例中的线型
    ),
    shape = guide_legend(title = "usage"),
    linetype = guide_legend(
      title = "efficiency screening level",
      override.aes = list(color = thresholds$color) # 指定阈值图例的颜色
    )
  ) +
  theme(axis.text.x = element_text(angle = 90, hjust = 1, vjust = 0.25)) +
  facet_wrap(~drv, scales = "free_x")

关键调整点 #

• 单独创建阈值数据集，避免重复调用geom_hline，简化映射逻辑
• 在geom_hline的aes中同时映射color和linetype到阈值名称，确保样式与图例一一对应
• 在scale_color_manual中同时包含点（年份）和水平线的颜色值，通过limits控制图例显示顺序
• 通过guides中的override.aes调整图例显示：隐藏年份图例的线型，指定阈值图例的颜色，避免不同元素的样式冲突

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