修改ggplot的viridis离散调色板：为指定因子区间设红色

这需求太实用了！完全可以通过构建自定义离散调色板来实现——把(0,1]区间设为红色，剩下的区间自动沿用viridis的渐变色彩，而且不需要临时手动改颜色，一次性搞定颜色映射逻辑。

核心思路 #

• 先通过cut()生成分组因子，明确各个区间的顺序；
• 提取viridis调色板中对应剩余区间数量的颜色；
• 把红色放在调色板的首位，和因子水平一一对应后，用scale_color_manual()映射到图表中。

完整代码实现 #

library(tidyverse)

# 提前处理分组，方便获取因子水平
iris_cut <- iris %>% 
  mutate(Petal_Cut = cut(Petal.Length, breaks = 0:7))

# 构建自定义调色板
# - 第一个颜色设为红色
# - 剩下的颜色用viridis离散调色板生成（数量自动匹配剩余因子水平）
custom_palette <- c(
  "red", 
  viridis_pal(option = "D")(length(levels(iris_cut$Petal_Cut)) - 1)
)
# 给调色板命名，确保每个颜色精准对应目标区间
names(custom_palette) <- levels(iris_cut$Petal_Cut)

# 绘制图表
iris_cut %>% 
  ggplot(aes(Sepal.Length, Sepal.Width, color = Petal_Cut)) +
  geom_point(size = 2) +  # 可选：放大点尺寸让颜色对比更清晰
  scale_color_manual(values = custom_palette) +
  labs(title = "Sepal Length vs Width (Custom Color Palette)",
       color = "Petal Length Range")

灵活调整技巧 #

• 想换viridis的配色风格？比如更亮的option = "E"或者偏暖黄的option = "A"，直接修改viridis_pal()里的option参数就行；
• 后续调整分组数量时，代码会自动计算需要的viridis颜色数量，不用手动改数字；
• 要换其他特殊颜色？把"red"换成你需要的颜色代码（比如橙红色"#FF4500"）即可。

这种方式的好处是调色板和因子水平完全绑定，不会出现颜色映射混乱的情况，逻辑清晰，后续维护也很方便～

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