R ggplot2折线图设置分组差异化点形状并合并为单个图例

问题场景 #

需要绘制分组折线图，满足以下要求：

• 不同分组的折线使用区分色
• 每条折线上的geom_point数据点使用不同形状，且点的颜色与所属折线颜色保持一致
• 仅保留一个统一的分组图例，不出现颜色、形状拆分的多个独立图例

测试使用的示例数据如下：

my_data <- data.frame(
  TIME = c("T1-3","T3-5","T6-8","T8-10","T1-3","T3-5","T6-8","T8-10"),
  GROUP = c("A","A","A","A","B","B","B","B"),
  M = as.numeric(c("7.52","7.85","8.6","9.2","7.55","7.85","8.61","9.22")),
  SD = as.numeric(c("0.19","0.16","0.19","0.26","0.2","0.22","0.2","0.26")))

初始代码的两类问题 #

1. 仅在全局美学映射中设置color = GROUP时，形状参数未绑定分组变量，手动设置的scale_shape_manual不生效，所有分组的点形状完全一致
2. 在全局映射中添加shape = GROUP后，仅给color图例设置了自定义标题，shape图例仍使用默认变量名，两个标度配置不匹配，生成两个独立图例

问题原因 #

ggplot2 自动合并图例的核心规则：所有绑定同一变量的美学标度，必须拥有完全一致的名称、标签、断点配置，才会合并为单个图例。

解决方案 #

无需额外安装包，仅需微调原有代码即可实现需求，改动最小的实现代码如下：

ggplot(my_data, aes(x = TIME, y = M, group = GROUP, color = GROUP, shape = GROUP)) + 
  geom_line(position = position_dodge(0.3)) +
  geom_point(position = position_dodge(0.3)) +
  scale_shape_manual(values = c(0, 1)) +
  geom_errorbar(aes(ymin = M-SD, ymax = M+SD), width = .2, position = position_dodge(0.3)) +
  labs(
    col = "Group of hurdlers",
    shape = "Group of hurdlers",
    x = "Phase distance",
    y = "Time (seconds)"
  ) +
  theme_light() +
  theme(legend.position = "top")

代码说明 #

• 全局映射中同时指定color = GROUP和shape = GROUP，让折线颜色、点形状都和分组变量绑定，点会自动继承折线的颜色映射，不需要额外设置点的颜色参数
• labs()中同时给col（即color标度）和shape标度设置完全相同的图例名称，满足图例自动合并的规则，最终只会生成一个统一的分组图例
• 误差线会自动继承分组的颜色映射，和对应折线、点的颜色保持一致，位置通过position_dodge(0.3)和折线、点对齐

可选扩展：如果需要自定义分组配色，只需添加scale_color_manual(values = c("A" = 自定义色值1, "B" = 自定义色值2), name = "Group of hurdlers")，保持name参数和shape标度的名称一致即可，不会破坏图例合并效果。

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