ggplot2多变量散点图图例点形状重叠问题求助

你的问题出在没有将形状（shape）映射到aes中的分类变量，而是单独给每个geom_point设置shape参数，导致ggplot无法将形状与图例中的分类关联，最终出现重叠。解决核心是把宽格式数据转成ggplot偏好的长格式，统一映射color和shape到分组变量。

步骤1：转换数据格式 #

先用tidyr::pivot_longer把宽数据转成长数据（假设你的数据框Database包含Station、Satr、Thth、Abbr列）：

library(tidyr)
# 转成长格式，将多列物种丰度合并为两列
long_db <- pivot_longer(Database, 
                        cols = c(Satr, Thth, Abbr), 
                        names_to = "Species", 
                        values_to = "Abundance")

步骤2：重构ggplot代码 #

现在可以统一在aes里映射color和shape到Species变量，再用scale_*_manual设置对应样式：

library(ggplot2)

# 定义颜色和形状的映射规则
colors <- c("Satr" = "blue", "Thth" = "red", "Abbr" = "darkgreen")
shapes <- c("Satr" = 0, "Thth" = 19, "Abbr" = 5)

ggplot(data = long_db, aes(x = Station, y = Abundance)) +
  geom_point(aes(color = Species, shape = Species), size = 3) +
  theme_bw() +
  scale_x_continuous(breaks = seq(0, 30, by = 1)) +
  ggtitle("Presence of the brown trout (Satr), grayling (Thth) and common bream (Abbr) 
          in the different stations of the Doubs river") +
  theme(plot.title = element_text(hjust = 0.5)) +
  labs(y = "fish abundance", x = "Stations", 
       color = "Legend", shape = "Legend") + # 统一两个图例的标题
  scale_color_manual(values = colors) +
  scale_shape_manual(values = shapes)

关键说明 #

• 原代码中每个geom_point单独设置shape属于局部参数，不会被图例识别；只有把shape放进aes()里绑定到分类变量，ggplot才会将其纳入图例逻辑。
• 转成长格式后，所有物种的丰度数据统一在一列，避免重复调用geom_point，代码更简洁易维护。

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