热图图例颜色分布调整

Question

scale_fill_gradientn函数，如何让中间色按照自己设定的数字调整。

这样设置图例，导致很多大于2的没有颜色。如何调整使所有都有颜色，而且中间色是1？

p <-ggplot(tmp, aes(x=tt,y=cancer)) + 
  geom_tile(aes(fill= HR),color ="white", size = 0)+
  scale_fill_gradientn("HR", colors=my_palette, limits = c(0,2)) + 
  geom_text(aes(label=text),col ="black",size = 5, hjust=0.5,vjust = 0.25) +

Answer 1

晚上好🌙🌙🌙
本答案参考通义千问

您在使用 scale_fill_gradientn 时，设置的 limits = c(0,2)，这意味着只有值在 0 到 2 之间的数据点会显示颜色，而 大于 2 的值 会被忽略（即没有颜色）。这正是您提到“很多大于2的没有颜色”的原因。

---

✅ 解决方案

1. 调整 limits 参数，覆盖所有可能的数值范围

如果您希望所有数值都有颜色，那么需要将 limits 设置为包含所有数据的最小值和最大值。

scale_fill_gradientn("HR", colors = my_palette, limits = range(tmp$HR))

注意： range(tmp$HR) 会自动获取 tmp$HR 中的最小值和最大值，确保所有数据都被覆盖。

---

2. 自定义中间色为 1

如果希望 中间色对应值为 1，可以使用 values 参数来指定颜色在渐变中的位置。例如：

scale_fill_gradientn(
  "HR",
  colors = my_palette,
  values = c(0, 0.5, 1, 1.5, 2),  # 自定义颜色分布位置
  limits = range(tmp$HR)
)

重点：

• colors 是你设定的颜色向量（如 c("blue", "white", "red")）。
• values 指定每个颜色对应的数据值范围（可以是任意区间）。
• 如果你想让 1 作为中间色，则需要确保 values 中有 1，并且该颜色位于中间位置。

---

3. 完整修改后的代码示例

p <- ggplot(tmp, aes(x = tt, y = cancer)) + 
  geom_tile(aes(fill = HR), color = "white", size = 0.5) +
  scale_fill_gradientn(
    "HR",
    colors = my_palette,  # 你的颜色调色板
    values = c(0, 0.5, 1, 1.5, 2),  # 自定义颜色分布位置
    limits = range(tmp$HR)  # 确保所有数据都被覆盖
  ) +
  geom_text(aes(label = text), col = "black", size = 5, hjust = 0.5, vjust = 0.25) +
  theme_minimal()

---

4. 如何验证是否所有数据都被覆盖？

你可以运行以下代码查看 tmp$HR 的最小值和最大值：

min_HR <- min(tmp$HR, na.rm = TRUE)
max_HR <- max(tmp$HR, na.rm = TRUE)
print(paste("HR 范围：", min_HR, "到", max_HR))

---

5. 如果不想限制颜色范围，但希望中间色为 1

如果你希望无论数据多大，都以 1 为中间色，可以使用 transformation 或自定义函数，但这通常比较复杂。更推荐的做法是：

• 确保 limits 包含足够大的范围（比如从 0 到 5）。
• 在 values 中设置 1 为中间点，并使用对称或非对称颜色分布。

---

📌 总结

| 步骤 | 内容 | |------|------| | 1 | 使用 limits = range(tmp$HR) 确保所有数据被覆盖 | | 2 | 使用 values = c(...) 自定义颜色分布，使中间色为 1 | | 3 | 修改 scale_fill_gradientn 的参数实现目标 |

通过以上方法，您可以确保所有数据点都有颜色，并且中间色准确对应于值为 1 的位置。