ggplot复杂图例格式化：点线混合图例的两项优化需求

先看你的原始代码：

require(tidyverse)

df <- iris %>% 
      mutate(Species = factor(Species))

ggplot(data = iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Species)) +
       geom_point() +
       theme_bw() +
       geom_hline(aes(yintercept = 2.5, colour = "forestgreen"), size = 1, linetype = 2) +
       geom_hline(aes(yintercept = 3.5, colour = "dodgerblue"),  size = 1, linetype = 1)

你遇到的两个图例问题，可以通过分离颜色映射逻辑+自定义图例引导来解决：

问题1：让物种图例仅显示点 #

核心是把散点和参考线的colour映射分开，再通过override.aes在图例中隐藏物种对应的线条元素。

问题2：给参考线图例自定义名称并保留样式 #

需要将参考线的颜色映射转为有意义的分组名称（比如"Lower"和"Upper"），而非直接用颜色值，再通过手动刻度指定对应颜色与线型。

完整修正代码 #

require(tidyverse)

df <- iris %>% 
      mutate(Species = factor(Species))

# 提前整理参考线的参数，用分组名称替代颜色值作为映射依据
ref_lines <- tibble(
  yintercept = c(2.5, 3.5),
  line_label = c("Lower", "Upper"),
  colour = c("forestgreen", "dodgerblue"),
  linetype = c(2, 1)
)

ggplot(data = iris, aes(x = Sepal.Length, y = Sepal.Width)) +
  # 散点单独绑定Species的颜色映射
  geom_point(aes(colour = Species)) +
  # 参考线绑定自定义分组的颜色与线型映射
  geom_hline(data = ref_lines, 
             aes(yintercept = yintercept, colour = line_label, linetype = line_label), 
             size = 1) +
  # 统一设置所有颜色：保留物种默认色相，指定参考线颜色
  scale_colour_manual(
    values = c(
      setNames(scales::hue_pal()(3), levels(df$Species)),
      "Lower" = "forestgreen",
      "Upper" = "dodgerblue"
    )
  ) +
  # 仅给参考线分组设置线型，隐藏物种的线型图例
  scale_linetype_manual(
    values = c("Lower" = 2, "Upper" = 1),
    breaks = c("Lower", "Upper")
  ) +
  # 精准控制图例元素显示：物种只显示点，参考线只显示线条
  guides(
    colour = guide_legend(
      override.aes = list(
        linetype = c(0, 0, 0, 2, 1),
        shape = c(16, 16, 16, NA, NA)
      )
    ),
    linetype = "none"  # 关闭单独的线型图例，合并到颜色图例中
  ) +
  theme_bw()

代码说明 #

1. 用数据框整理参考线参数，让line_label作为映射分组，避免颜色值直接当图例名称
2. 散点与参考线的颜色映射分离，分别对应物种和自定义分组
3. 通过override.aes指定每个图例项的显示规则：物种隐藏线条，参考线隐藏点
4. 手动刻度统一管理颜色与线型，保证样式匹配

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