如何在ggplot2的geom_tile颜色填充渲染时排除指定数据但保留显示

要实现保留目标单元格位置、文本，但不参与填充色阶计算的需求，有两种常用的落地方法：

方案1：替换异常值为NA+配置NA填充样式（最简单） #

思路：在fill映射时将需要排除的单元格值替换为NA，色阶会自动忽略NA值计算范围，再单独指定NA值的填充颜色即可。

library(tidyverse)
plot_data <- data.frame(month=c(1,2,3,4,5,6),
                        category=c("a","b","c","a","b","c"),
                        value=c(53,20,41,32,67,120000))

plot_data %>% 
  ggplot(aes(x=month,y=category)) +
  geom_tile(aes(fill = ifelse(month==6 & category=="c", NA, value))) +
  geom_text(color='white',aes(label=value)) +
  scale_fill_gradientn(
    colors=c('white','yellow','orange','red'),
    # 可按需修改NA值的填充色，比如透明用"transparent"
    na.value = "grey50",
    # 手动指定色阶范围，完全规避异常值影响
    limits = range(plot_data$value[!(plot_data$month==6 & plot_data$category=="c")]),
    # 不需要在图例显示NA标识时添加该参数
    na.translate = FALSE
  )

方案2：分层绘制geom_tile（灵活度更高） #

思路：把正常数据和需要排除的数据分开绘制tile层，正常层走fill映射，排除层单独设置固定填充样式，互不干扰，还可以自定义特殊样式（比如加边框）。

library(tidyverse)
plot_data <- data.frame(month=c(1,2,3,4,5,6),
                        category=c("a","b","c","a","b","c"),
                        value=c(53,20,41,32,67,120000))

plot_data %>% 
  ggplot(aes(x=month,y=category)) +
  # 正常数据的tile层，参与色阶计算
  geom_tile(data = ~filter(.x, !(month==6 & category=="c")), aes(fill = value)) +
  # 排除数据的tile层，单独设置样式
  geom_tile(data = ~filter(.x, month==6 & category=="c"), fill = "grey50", color = "black") +
  geom_text(color='white',aes(label=value)) +
  scale_fill_gradientn(colors=c('white','yellow','orange','red'))

注意事项 #

• 筛选条件里的分类值属于字符串类型，必须加双引号，否则会报错
• 两种方案都保留了全量数据的文本层，目标单元格的数值标签不会丢失

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