如何在R的ggplot中指定颜色条件并保留原有调色板

可以实现你要的效果，核心思路是对连续变量进行分段颜色映射：将低于/等于第三四分位数的部分用viridis渐变调色，高于第三四分位数的所有值统一设为黑色。以下是可复现代码：

library(ggplot2)
library(viridis)

# 构造示例数据
data = iris[1:3] 
data[1:5, 3] <- data[1:5, 3] * 150 

# 计算Petal.Length的第三四分位数
q3 <- quantile(data$Petal.Length, 0.75)

# 绘制图形
ggplot(data) +
  geom_point(aes(x = Sepal.Length, y = Sepal.Width, color = Petal.Length), size = 2) +
  # 自定义颜色映射：低于Q3用viridis(magma)渐变，高于Q3用黑色
  scale_color_gradientn(
    name = "Petal Length",
    # 生成viridis调色板颜色 + 黑色
    colors = c(viridis_pal(option = "magma", direction = -1)(100), "black"),
    # 设置颜色映射的位置：前100个颜色对应从最小值到Q3，最后一个黑色对应Q3到最大值
    values = c(seq(0, q3 / max(data$Petal.Length), length.out = 100), 1),
    # 可选：在图例中标记Q3的位置，提升可读性
    breaks = c(min(data$Petal.Length), q3, max(data$Petal.Length)),
    labels = c(round(min(data$Petal.Length),1), paste0("Q3: ", round(q3,1)), "High")
  ) +
  theme(legend.position = "top", legend.direction = "horizontal")

关键说明： #

• viridis_pal(option = "magma", direction = -1)(100)：生成100个渐变的magma色系颜色，完全保留你原有的调色板设置
• values参数：精准控制颜色对应的数值区间，确保所有高于Q3的值都被映射为黑色，同时保留低值区间的渐变细节
• 图例通过breaks和labels明确标记关键节点，让读者能快速理解颜色对应的数值范围

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