如何用ggplot为相关矩阵中的完全相关色块设置自定义颜色

核心问题分析 #

你之前过滤掉value=1的行后，空白位置显示白色是因为这些格子没有数据，ggplot默认不绘制，显示的是主题背景色。要给这些位置上色，同时突出弱相关性，不需要过滤数据，而是通过调整颜色映射和色块覆盖来实现更优雅的效果。

方法1：双图层覆盖完全相关色块（推荐） #

保留全部数据，先绘制所有相关性色块，再用单独的图层覆盖对角线的完全相关项，同时限定颜色映射范围为非1的数值，放大弱相关性的颜色差异：

cor_melt %>%
  ggplot(aes(x = Var1, y = Var2, fill = value)) +
  # 绘制所有相关性色块
  geom_tile() +
  # 覆盖对角线的完全相关色块，设置为灰色（可替换为"black"）
  geom_tile(data = . %>% filter(value == 1), fill = "gray50") +
  # 限定颜色映射范围为非1的最小值到最大值，突出弱相关性
  scale_fill_gradient2(
    low = "dodgerblue3", 
    mid = "white", 
    high = "firebrick3", 
    midpoint = 0,
    limits = range(cor_melt$value[cor_melt$value != 1])
  ) +
  labs(x = NULL, y = NULL) +
  theme_minimal() +
  theme(
    axis.text.x = element_text(angle = 45, hjust = 1.1),
    panel.grid = element_blank()
  )

方法2：将完全相关值设为NA并指定缺失色 #

把value=1替换为NA，通过na.value参数直接设置这些位置的颜色，同时限定颜色范围：

cor_melt %>%
  mutate(value = ifelse(value == 1, NA, value)) %>%
  ggplot(aes(x = Var1, y = Var2, fill = value)) +
  geom_tile() +
  scale_fill_gradient2(
    low = "dodgerblue3", 
    mid = "white", 
    high = "firebrick3", 
    midpoint = 0,
    na.value = "gray50", # 自定义完全相关位置的颜色
    limits = range(.$value, na.rm = TRUE)
  ) +
  labs(x = NULL, y = NULL) +
  theme_minimal() +
  theme(
    axis.text.x = element_text(angle = 45, hjust = 1.1),
    panel.grid = element_blank()
  )

关键优化点 #

• 避免过滤数据：保留所有格子位置，确保矩阵结构完整
• 限定颜色范围：排除value=1的极值干扰，让弱相关性的颜色差异更明显
• 自定义完全相关色块：直接指定灰色/黑色，视觉上区分对角线的自相关项

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