ggplot2如何将线条与带边框点合并为同一个图例？

核心实现代码 #

library(ggplot2)
ggplot(data.frame("Year" = 2013:2022, "Value" = rnorm(10)), 
       aes(Year, Value, color = "Name with Spaces", fill = "Name with Spaces")) + 
  geom_line(linewidth = 1) +
  geom_point(color = "blue", pch = 21, size = 3) +
  # 两个标度设置完全一致的图例名称，保证图例可自动合并
  scale_color_manual(values = "red", name = "Name with Spaces") +
  scale_fill_manual(values = "yellow", name = "Name with Spaces") +
  # 手动调整图例显示样式，匹配实际绘图效果
  guides(
    color = guide_legend(
      override.aes = list(
        linetype = 1, color = "red",
        shape = 21, color = "blue", fill = "yellow", size = 3
      )
    )
  )

关键说明 #

• 图例合并规则：ggplot2 只有在多个美学映射对应的标度图例标题、条目顺序、条目文本完全一致时，才会自动将多个图例合并为一个。原代码没有显式给scale_color_manual和scale_fill_manual设置统一的标识参数，因此被判定为两个独立图例。
• 图层效果：代码按顺序先调用geom_line()绘制红色线条，再调用geom_point()绘制带蓝色边框的黄色填充点，点会默认渲染在线条上层，直接实现「红色线条从点下方穿过」的视觉效果，无需额外调整层级。
• 图例样式修正：由于点的蓝色边框是硬编码的固定参数，未走color美学映射，默认生成的图例中点边框会错误显示为线条的红色，因此需要通过override.aes手动覆写图例中点的形状、边框色、填充色参数，保证图例和实际绘图效果完全一致。

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