如何使用单个标准geom实现带例外值的ggplot自定义颜色渐变？

原方法效果：

标注：2024-12-08使用reprex v2.1.1创建

可以通过给特殊值标记为NA，配合scale_color_gradient的na.value参数实现单个geom的效果，同时保留包含红色例外值的图例：

library(tidyverse)

mtcars %>%
  # 将特殊值21转为NA，用于单独设置颜色
  mutate(mpg_color = ifelse(mpg == 21, NA_real_, mpg)) %>%
  ggplot(aes(x = qsec, y = wt, color = mpg_color)) +
  geom_point(size = 3) + # 单个geom即可覆盖所有点
  scale_color_gradient(
    low = "blue", 
    high = "black",
    transform = "log", # 保留原有的log变换
    na.value = "red", # 指定特殊值的颜色
    # 手动添加图例断点，包含特殊值21
    breaks = c(min(mtcars$mpg), 21, max(mtcars$mpg)),
    labels = as.character(c(min(mtcars$mpg), 21, max(mtcars$mpg)))
  ) +
  labs(color = "mpg") # 修正图例标题

核心优势 #

• 只用一个geom_point就完成所有点的绘制，避免多geom分层的麻烦
• 图例自动包含红色的21标记，解决原方法图例缺失的问题
• 保留了原需求中的log颜色变换

如果需要更精细化的图例（比如把红色标记单独做成图例项），可以结合guide_legend和guide_colorbar，但需要额外使用ggnewscale包拆分颜色标尺，不过上述方法已经满足“单个标准geom”的核心需求。

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