求助：ggplot2中合并颜色与形状图例的方法（R初学者）

你的问题根源在于当前使用宽格式数据，且每个geom_point单独指定colour和shape的固定字符串，导致ggplot将颜色、形状视为两个独立的图例映射。要合并图例，核心是让colour和shape映射到同一个分类变量，最佳做法是先把数据转换为ggplot2偏好的长格式（tidy data）。

步骤1：转换数据为长格式 #

先修正原始数据的列名（让地区名称更直观），再用tidyr::pivot_longer把宽格式转成长格式：

# 1. 重新创建数据（列名直接用地区名）
data <- data.frame(Year = df1$Year,
                   Africa = df1$Temperature.Africa,
                   Asia = df1$Temperature.Asia,
                   Europe = df1$Temperature.Europe,
                   Australia = df1$Temperature.Australia)

# 2. 转换为长格式
library(tidyr)
data_long <- pivot_longer(data, 
                          cols = -Year,  # 排除Year列，转换其余所有列
                          names_to = "Region",  # 列名转为"Region"变量
                          values_to = "Temperature")  # 列值转为"Temperature"变量

步骤2：重新绘图（自动合并图例） #

用长格式数据，在aes中同时将colour和shape映射到Region变量，ggplot会自动合并两个图例：

library(ggplot2)
ggp1 <- ggplot(data_long, aes(x = Year, y = Temperature, colour = Region, shape = Region)) +
  geom_point()

为什么这样有效？ #

现在colour和shape都绑定到同一个分类变量Region，ggplot识别它们是同一分组的不同视觉属性，因此会合并成一个图例——点击图例标签即可同时控制对应地区的颜色和形状显示/隐藏。

临时替代方案（不推荐） #

如果暂时不想转换数据，可以手动统一图例名称并强制匹配颜色与形状，但这种方法维护成本高、易出错：

ggp1 <- ggplot(data, aes(x = Year)) +
  geom_point(aes(y = Temperature, colour = "Africa", shape = "Africa")) +  
  geom_point(aes(y = y2, colour = "Asia", shape = "Asia")) +
  geom_point(aes(y = y3, colour = "Europe", shape = "Europe")) + 
  geom_point(aes(y = y4, colour = "Australia", shape = "Australia")) +
  # 统一两个图例的名称
  labs(colour = "Region", shape = "Region") +
  # 手动匹配颜色与形状
  guides(
    colour = guide_legend(override.aes = list(shape = c(16, 17, 15, 18))),
    shape = guide_legend(override.aes = list(colour = c("#E69F00", "#56B4E9", "#009E73", "#F0E442")))
  )

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