ggplot手动设置断点绘制化学-设备含量热图问题求助

你的核心问题是数据分布跨度极大（0.01到150000），线性刻度下颜色映射会被高值主导，导致多数区域颜色无差异。以下是三种可行解决方案：

方法1：对数转换颜色刻度（推荐） #

利用对数转换压缩高值区间的颜色跨度，让低数值的差异清晰展示：

library(ggplot2)

ggplot(DataFrame, aes(Device, Chemical, fill = Quantity)) +
  geom_tile() +
  theme_classic() +
  scale_fill_steps(
    low = "#006837", high = "#a50026",
    breaks = c(0.01, 0.1, 1, 10, 100, 1000, 10000, 150000),
    trans = "log10",  # 关键：启用对数转换
    labels = function(x) format(x, scientific = FALSE)  # 避免科学计数法标签
  )

原理 #

对数转换将数量级的差异转化为线性的颜色差异，原本被压缩在蓝色端的低数值区间会被拉伸，细节得以显现。

方法2：手动离散化区间（严格按自定义断点） #

如果需要完全遵循你设定的断点展示颜色，可以先将连续的Quantity转换为离散区间，再映射颜色：

library(ggplot2)
library(dplyr)

# 自定义断点（需覆盖全部数据范围）
my_breaks <- c(0, 0.01, 0.1, 0.5, 1, 5, 10, 50, 100, 1000, 150000)

# 给数据分箱
DataFrame <- DataFrame %>%
  mutate(Quantity_bin = cut(
    Quantity,
    breaks = my_breaks,
    include.lowest = TRUE,
    labels = c("0-0.01", "0.01-0.1", "0.1-0.5", "0.5-1", "1-5", "5-10", "10-50", "50-100", "100-1000", "1000-150000")
  ))

# 绘制热图
ggplot(DataFrame, aes(Device, Chemical, fill = Quantity_bin)) +
  geom_tile() +
  theme_classic() +
  scale_fill_manual(
    values = c("#006837", "#1a9850", "#66bd63", "#a6d96a", "#d9ef8b", "#fee08b", "#fdae61", "#f46d43", "#d73027", "#a50026"),
    name = "Quantity"
  )

原理 #

通过cut()函数把连续数值强制分成你指定的区间，每个区间对应固定颜色，彻底避免数据分布不均对颜色映射的影响。

方法3：改进渐变颜色映射 #

若坚持使用渐变颜色，需为scale_fill_gradientn指定对数转换，并对齐颜色与断点：

library(ggplot2)

my_colors <- c("#006837", "#1a9850", "#66bd63", "#a6d96a", "#d9ef8b", "#fee08b", "#fdae61", "#f46d43", "#d73027", "#a50026")
my_breaks <- c(0.01, 0.1, 0.5, 1, 5, 10, 50, 100, 1000, 150000)

ggplot(DataFrame, aes(Device, Chemical, fill = Quantity)) +
  geom_tile() +
  theme_classic() +
  scale_fill_gradientn(
    colors = my_colors,
    breaks = my_breaks,
    trans = "log10",  # 启用对数转换
    limits = range(DataFrame$Quantity),
    labels = function(x) format(x, scientific = FALSE)
  )

为什么之前的代码无效？ #

你之前的代码未指定刻度转换方式，默认采用线性刻度。由于你的数据绝大多数集中在低数值区间（0.01-100），线性映射下这些值的颜色差异被压缩成几乎一致的蓝色，只有极少数高值（1000+）会显示红色。

内容的提问来源于stack exchange，提问作者Zaman Muhammad Asad