geom_point()图例合并：如何将两个图例合并为一个「Species」图例？

要解决这个问题，核心思路是让你用来区分物种的多个美学属性（比如颜色、形状）都关联到同一个Species变量，并且统一图例的名称，让ggplot2自动（或手动）合并它们。下面分情况给出具体方案：

情况1：同一个geom_point使用多个美学映射 #

这是最常见的场景——你想用颜色和形状同时区分不同物种，但不小心把映射分开写导致图例分裂。

正确写法（自动合并图例） #

把color和shape都放在同一个geom_point的aes()里，ggplot2会自动将它们合并成一个图例，再显式指定图例名称为「Species」即可：

library(ggplot2)

ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width)) +
  # 同时映射color和shape到Species
  geom_point(aes(color = Species, shape = Species), size = 3) +
  # 统一两个美学属性的图例名称（其实默认已经是Species，显式设置更稳妥）
  labs(color = "Species", shape = "Species")

情况2：多个geom_point分别使用不同美学映射 #

如果你的代码是两个独立的geom_point（比如一个用颜色区分、一个用形状区分），需要手动关联两个图例，让它们合并：

示例修正代码 #

library(ggplot2)
library(scales) # 用来获取默认的颜色调色板

ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width)) +
  geom_point(aes(color = Species), size = 2) +
  geom_point(aes(shape = Species), color = "black", size = 4) +
  # 统一两个图例的名称为「Species」
  scale_color_discrete(name = "Species") +
  scale_shape_discrete(name = "Species") +
  # 让每个图例项同时显示颜色和形状，实现合并
  guides(
    color = guide_legend(override.aes = list(shape = unique(iris$Species))),
    shape = guide_legend(override.aes = list(color = hue_pal()(3)))
  )

关键要点 #

• 所有用来区分分组的美学属性（color/shape/fill等）必须映射到同一个变量（这里是Species）。
• 确保对应的scale函数（比如scale_color_discrete、scale_shape_discrete）设置了相同的name参数，这样ggplot2才会识别它们属于同一个图例。
• 用guides()的override.aes参数，可以让每个图例项同时展示多种美学特征（比如既有颜色又有形状），让合并后的图例更直观。

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