如何用ggplot2的geom_tile正确着色并解决单元格重叠问题

你遇到的问题本质是多次通过filter拆分数据后叠加geom_tile，导致同一坐标位置的单元格被重复绘制，后绘制的tile会覆盖先绘制的，最终出现视觉重叠、颜色混乱的情况。

核心思路：单次调用geom_tile，直接映射颜色到perc值 #

不需要拆分数据集，用完整数据一次性调用geom_tile，将perc变量直接映射到fill参数，让每个单元格根据自身的perc值自动分配颜色。

示例代码 #

1. 模拟数据（匹配常见热力图数据结构）

library(tidyverse)

set.seed(123)
# 模拟包含行、列、百分比、分组变量的数据集
df <- expand.grid(row = 1:5, col = 1:5) %>%
  mutate(perc = runif(n(), 0, 1),
         group = sample(c("A", "B"), n(), replace = TRUE))

2. 错误的做法（你当前的实现方式）

# 错误：多次filter叠加geom_tile，导致重叠覆盖
ggplot() +
  geom_tile(data = df %>% filter(group == "A"), aes(x = col, y = row, fill = perc)) +
  geom_tile(data = df %>% filter(group == "B"), aes(x = col, y = row, fill = perc))

3. 正确的基础热力图实现

# 正确：单次geom_tile，映射fill到perc值
ggplot(df, aes(x = col, y = row, fill = perc)) +
  geom_tile(color = "white") + # 白色边框区分单元格，避免视觉粘连
  scale_fill_viridis_c(option = "plasma") + # 连续色阶，也可替换为scale_fill_gradient(low="blue", high="red")
  labs(x = "列", y = "行", fill = "百分比") +
  theme_minimal()

4. 带分组区分的热力图（如果需要按分组标记）

如果需要保留分组信息，可将分组变量映射到单元格边框颜色，而非重复绘制tile：

ggplot(df, aes(x = col, y = row, fill = perc, color = group)) +
  geom_tile(size = 1) + # 调整边框粗细
  scale_fill_viridis_c() +
  scale_color_manual(values = c("A" = "black", "B" = "darkred")) +
  labs(x = "列", y = "行", fill = "百分比", color = "分组") +
  theme_minimal()

5. 同一坐标有多组perc值的处理

如果你的数据中同一(row,col)对应多个分组的perc值，不要叠加tile，改用分面或合并坐标轴的方式展示：

# 模拟同一坐标多分组数据
df_multi <- expand.grid(row = 1:5, col = 1:5, group = c("A", "B")) %>%
  mutate(perc = runif(n(), 0, 1))

# 方案1：分面展示
ggplot(df_multi, aes(x = col, y = row, fill = perc)) +
  geom_tile(color = "white") +
  facet_wrap(~group) +
  scale_fill_viridis_c() +
  theme_minimal()

# 方案2：将分组合并到坐标轴
ggplot(df_multi, aes(x = interaction(col, group), y = row, fill = perc)) +
  geom_tile(color = "white") +
  scale_fill_viridis_c() +
  labs(x = "列-分组", y = "行") +
  theme_minimal()

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