ggplot2图例合并问题：如何将Shiny应用散点图中shape与color对应的两个因子图例分开显示

这个问题在使用ggplot2映射多个分类视觉属性时很常见——当你把两个二元分类变量分别绑定到shape和color时，ggplot2会默认生成一个交叉组合图例，展示所有变量的可能组合，但我们需要的是两个独立的单变量图例。下面是具体的解决方案：

步骤1：确保变量是因子类型（关键前提） #

首先要确认diabetes和anaemia是因子类型（而非数值型）。如果你的原始数据里这两个变量是0/1的数值，先在响应式函数selected()里把它们转换成因子：

selected <- reactive({
  heart %>% 
    select(c(input$variables, response)) %>%
    filter(age >= input$age[1], age <= input$age[2]) %>%
    mutate(
      diabetes = factor(diabetes, levels = c(0,1), labels = c("0","1")),
      anaemia = factor(anaemia, levels = c(0,1), labels = c("0","1"))
    )
})

这一步能让ggplot2正确识别它们是分类变量，为后续分离图例打下基础。

步骤2：使用guides()强制分离图例 #

修改你的ggplot代码，通过guides()函数分别控制shape和color的图例，并用override.aes屏蔽另一个视觉属性的变化：

ggplot(data = selected(), aes(x=age, y=platelets, shape=diabetes, color=anaemia)) +
  geom_point() +
  guides(
    # 为diabetes的形状图例统一颜色，只展示形状差异
    shape = guide_legend(title = "diabetes", override.aes = list(color = "black")),
    # 为anaemia的颜色图例统一形状，只展示颜色差异
    color = guide_legend(title = "anaemia", override.aes = list(shape = 16))
  )

原理说明 #

默认情况下，ggplot2会为每个变量组合生成一个图例条目（比如(0,1)、(1,0)）。通过override.aes，我们强制让形状图例的所有条目使用同一个颜色（黑色），让颜色图例的所有条目使用同一个形状（圆形，代码16），这样两个图例就会独立展示各自变量的类别，而不是交叉组合。

可选优化：自定义图例外观 #

如果需要调整图例的位置、样式，可以在guides()里继续添加参数，比如：

guides(
  shape = guide_legend(title = "diabetes", override.aes = list(color = "black"), position = "top"),
  color = guide_legend(title = "anaemia", override.aes = list(shape = 16), position = "top")
)

这样两个图例会并排显示在图表顶部。

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