ggplot2嵌套分类变量作为美学属性时合并图例的实现方法

你之前合并图例失效的核心原因是两个美学映射对应的变量取值数量不匹配：colour映射的categorical有3个取值（A、B、Total），而linetype映射的is_total只有2个取值，ggplot无法自动对齐两个图例的条目，因此即使设置相同图例标题也不会合并。

你可以通过手动覆盖颜色图例的线型属性来实现需求，完整实现代码如下：

library(tidyverse)

dat <- tribble(
  ~x, ~y, ~categorical, ~is_total,
   0,  0,          "A",     FALSE,
   1,  1,          "A",     FALSE,
   0,  1,          "B",     FALSE,
   1,  3,          "B",     FALSE,
   0,  1,      "Total",      TRUE,
   1,  4,      "Total",      TRUE
)

ggplot(dat, aes(x, y, colour = categorical, linetype = is_total)) +
  geom_line() +
  # 手动指定线型：非总和项用实线，总和项用虚线
  scale_linetype_manual(values = c("FALSE" = "solid", "TRUE" = "dashed")) +
  # 配置图例参数
  guides(
    linetype = "none", # 隐藏线型图例
    colour = guide_legend(
      # 覆盖颜色图例的线型属性，按A、B、Total的顺序指定对应线型
      override.aes = list(linetype = c("solid", "solid", "dashed"))
    )
  )

如果你自定义了categorical的因子排序，只需要调整override.aes中linetype的取值顺序，和你的因子水平顺序一一对应即可。

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