ggplot图例override.aes失效：无数据列CR的图例显示问题

问题根源 #

当DaysCR列全为缺失值时，na.omit(dataCR)会返回空数据集，导致geom_point(aes(color="CR"))无法向ggplot注册"CR"类别。此时scale_color_manual中定义的"CR"不会被纳入图例，后续guides里的override.aes会因对应元素缺失报错。

解决方案 #

核心是强制让ggplot识别所有需要的图例类别，并确保override.aes参数与类别顺序匹配：

1. 在scale_color_manual中通过breaks参数指定所有类别，强制显示在图例中
2. 移除na.omit(dataCR)，直接使用原数据集，让ggplot能识别"CR"类别（即使无数据点）
3. 调整shape_override、line_override、fill_override的顺序，与breaks的类别顺序一致

修改后的完整代码 #

library(tidyverse)

# 模拟用户提供的数据集
dataset <- tibble(
  Subject = c("XXX", "YYY"),
  DaysTRT = c(10, 16),
  DaysDISC = c(11, 17),
  DaysDTH = c(NA, 20),
  DaysCR = c(NA, NA)
)

dat_swim <- 
  dataset |>
  mutate(Subject = fct_reorder(factor(Subject), DaysTRT))

# 定义所有图例类别，顺序需与后续override参数对应
legend_cats <- c("TRT", "CR", "Death", "Discontinuation")
cols <- c(
  "TRT" = "blue",
  "CR" = "green",
  "Death" = "black", 
  "Discontinuation" = "red"
)

# 调整override参数顺序，与legend_cats一致
shape_override <- c(NA, 21, 24, 24)
line_override <- c(1, NA, NA, NA)
fill_override <- c("blue", "green", "black", "red")

ggplot(data = dat_swim, aes(y=Subject, group=Subject)) +
  # 治疗时长线段
  geom_segment(aes(x = 0, xend=DaysTRT, y=Subject, color="TRT")) +
  # 终止点
  geom_point(aes(x=DaysDISC, y=Subject, color="Discontinuation", fill="Discontinuation"), shape=24) +
  # 死亡点
  geom_point(aes(x=DaysDTH, y=Subject, color="Death", fill="Death"), shape=24) +
  # CR点：保留空图层，确保ggplot识别"CR"类别
  geom_point(aes(x=DaysCR, y=Subject, color="CR", fill="CR"), shape=21) +
  
  # 手动指定breaks，强制显示所有类别
  scale_color_manual(values=cols, name="Legend", breaks=legend_cats) +
  scale_fill_manual(values=cols) +
  guides(fill=FALSE) +
  # 应用override参数，顺序与breaks匹配
  guides(color = guide_legend(
    override.aes = list(
      shape = shape_override,
      linetype = line_override,
      fill = fill_override
    )
  ))

关键修改说明 #

• breaks=legend_cats：强制scale显示所有指定类别，哪怕对应图层没有数据点
• 移除na.omit(dataCR)：保留空的CR图层，让ggplot能识别"CR"类别，从而在图例中显示
• 调整override参数顺序：确保shape、linetype、fill的顺序和breaks里的类别顺序一一对应，避免样式错位

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