ggplot2中移除线条图例多余点并为形状图例添加颜色

问题场景 #

使用iris数据集绘制包含geom_count和geom_smooth的图形，需要实现两个独立图例：

1. 带对应物种颜色的点形状图例
2. 带对应物种颜色且无多余点的线条图例
   当前问题：线条图例包含多余点，形状图例无颜色，需保留原有图层设置不变解决问题。

解决方案代码 #

library(ggplot2)

ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, color = Species, shape = Species)) +
  geom_count(size = 2) +  # 保留原有点大小设置
  geom_smooth(method = "lm", se = FALSE, aes(linetype = Species)) +  # 新增linetype映射拆分图例
  # 给形状图例添加对应物种颜色
  scale_shape_guide(override.aes = list(color = scales::hue_pal()(3))) +
  # 移除线条图例中的多余点
  scale_linetype_guide(override.aes = list(shape = NA)) +
  # 自定义图例显示逻辑：隐藏默认颜色图例，设置两个独立图例的标题和顺序
  guides(
    color = "none",
    shape = guide_legend(title = "点形状", order = 1),
    linetype = guide_legend(title = "拟合线条", order = 2)
  )

关键调整说明 #

• 给geom_smooth单独添加linetype = Species的映射，将线条和点的图例拆分为两个独立项，避免默认的颜色图例合并两者
• 通过scale_shape_guide的override.aes参数，为形状图例的点添加对应物种的颜色，解决形状图例无颜色的问题
• 通过scale_linetype_guide的override.aes参数，将线条图例中的shape设为NA，移除多余的点元素
• 利用guides函数隐藏默认的颜色图例，同时自定义两个独立图例的标题和显示顺序，确保布局符合需求

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