ggplot2中保留无数据因子图例并匹配全量图例样式的问题

ggplot2对无数据因子的处理逻辑变更后，出现了不符合预期的图形表现：当使用scale_color_discrete(drop = FALSE)强制保留未使用的因子水平时，生成的第三个图虽然在图例中显示了所有因子，但缺失对应的数据点样式（比如"Fair"对应的颜色块是空的）。需求是让该图的图例与第一个全量数据图完全一致（所有因子都显示带数据点的完整样式），且使用scale_color_manual自定义颜色时也存在同样问题，需要一并解决。

对应的测试代码如下：

library(ggplot2)

# 全量数据图：图例完整，所有因子均有对应数据点样式
ggplot(diamonds, aes(x, y, color = cut)) + geom_point()

# 过滤掉"Fair"因子，默认自动丢弃未使用的水平
ggplot(diamonds |> dplyr::filter(cut != "Fair"), aes(x, y, color = cut)) + 
  geom_point() 

# 保留未使用的因子水平，但图例中无对应数据点样式
ggplot(diamonds |> dplyr::filter(cut != "Fair"), aes(x, y, color = cut)) + 
  geom_point() + 
  scale_color_discrete(drop = FALSE)

以下两种方法均可实现需求，让过滤后的数据图拥有和全量数据图一致的完整图例：

方法1：通过guides()强制图例显示数据点样式 #

在图例设置中使用override.aes参数，指定所有因子水平都显示默认的点形状，补全空的图例项：

ggplot(diamonds |> dplyr::filter(cut != "Fair"), aes(x, y, color = cut)) + 
  geom_point() + 
  scale_color_discrete(drop = FALSE) +
  guides(color = guide_legend(override.aes = list(shape = 19))) # 19是ggplot2默认的实心点形状

如果是使用scale_color_manual自定义颜色，同样可以套用该逻辑：

# 自定义颜色 palette
custom_colors <- c(
  "Fair" = "#E69F00", 
  "Good" = "#56B4E9", 
  "Very Good" = "#009E73", 
  "Premium" = "#F0E442", 
  "Ideal" = "#0072B2"
)

ggplot(diamonds |> dplyr::filter(cut != "Fair"), aes(x, y, color = cut)) + 
  geom_point() + 
  scale_color_manual(values = custom_colors, drop = FALSE) +
  guides(color = guide_legend(override.aes = list(shape = 19)))

方法2：为数据集添加缺失因子的空数据行 #

在过滤后的数据集里，为缺失的因子水平添加一行包含NA值的空数据，让ggplot2识别到该因子的存在，从而自动生成完整图例：

library(dplyr)

# 过滤数据并添加缺失的"Fair"因子行
filtered_data <- diamonds |> 
  filter(cut != "Fair") |> 
  bind_rows(tibble(
    cut = factor("Fair", levels = levels(diamonds$cut)), 
    x = NA, 
    y = NA
  ))

ggplot(filtered_data, aes(x, y, color = cut)) + 
  geom_point()

这种方法无需修改scale或guide设置，完全模拟全量数据的绘图逻辑，效果和全量数据图的图例完全一致。

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