如何为ggplot geom_tile每行设置独立的绿-红颜色渐变（基于行内最值）

要实现每个draft_mean行内独立的颜色渐变（每行的rf_pwr最小值为绿色，最大值为红色），核心思路是先按draft_mean分组，对每组的rf_pwr做0-1范围内的归一化处理，再用这个归一化后的值映射填充色。这样就能保证每行的颜色范围只基于自身的数值区间，而不是全局范围。

步骤1：加载依赖包并预处理数据 #

我们可以用dplyr做分组计算，scales包的rescale()函数来快速实现数值归一化：

library(ggplot2)
library(dplyr)
library(scales)

# 对数据集按draft_mean分组，计算每组内rf_pwr的归一化值
dataset_processed <- dataset %>%
  group_by(draft_mean) %>%
  mutate(rf_pwr_normalized = rescale(rf_pwr, to = c(0, 1))) %>%
  ungroup()

步骤2：修改ggplot代码绘制热力图 #

现在把填充色从原来的rf_pwr替换为归一化后的rf_pwr_normalized，其余设置保留你的原有逻辑即可：

ggplot(dataset_processed, aes(trim, draft_mean)) +
  geom_tile(aes(fill = rf_pwr_normalized), color = "black") +
  # 保持绿到红的渐变映射
  scale_fill_gradient(low = "green", high = "red") +
  scale_x_reverse() +
  scale_y_reverse() +
  # 可选：添加坐标轴标签，让图表更清晰
  labs(x = "Trim", y = "Draft Mean", fill = "Normalized RF Power")

为什么这样做？ #

• group_by(draft_mean)确保我们只在同一个draft_mean的行内计算极值
• rescale(rf_pwr, to = c(0,1))把每组的rf_pwr线性缩放到0到1之间：组内最小值对应0（绿色），最大值对应1（红色）
• 替换填充字段后，scale_fill_gradient就会基于这个归一化值渲染颜色，完美实现每行独立的颜色对比

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