如何在R语言中绘制含4个连续变量的热力图（方块大小随第4变量变化）

嘿，这个需求挺实用的——要做一个热力图，同时让每个方块的大小跟着第四个连续变量动态调整对吧？我通常用ggplot2来实现这种定制化可视化，下面给你一步步拆解：

1. 准备工作：加载包与模拟数据 #

首先我们需要加载必要的包，然后模拟一组包含4个连续变量的示例数据（你可以直接替换成自己的真实数据）：

# 加载依赖包
library(ggplot2)
library(dplyr)

# 设置随机种子保证结果可重复
set.seed(123)

# 生成示例数据：x、y作为热力图的坐标轴，fill_var控制颜色，size_var控制方块大小
df <- expand.grid(x = seq(1, 10, by = 1), y = seq(1, 10, by = 1)) %>%
  mutate(
    fill_var = rnorm(n(), mean = 0, sd = 2),  # 第3个变量：热力图颜色映射
    size_var = runif(n(), min = 1, max = 10)  # 第4个变量：方块大小映射
  )

2. 核心绘图代码 #

这里的关键是用正方形点模拟热力图方块——因为传统的geom_tile没法直接将大小映射到连续变量，而geom_point的size参数可以完美实现动态调整：

ggplot(df, aes(x = x, y = y)) +
  # 使用正方形点（shape=15），fill映射颜色变量，size映射大小变量
  geom_point(
    aes(fill = fill_var, size = size_var),
    shape = 15,  # 指定正方形形状
    color = "white"  # 方块边框颜色，增加区分度
  ) +
  # 调整方块大小的范围，避免过大或过小（可根据需求修改）
  scale_size(range = c(2, 10)) +
  # 设置热力图的颜色渐变（这里用蓝到红，可自定义配色）
  scale_fill_gradient(low = "#1f77b4", high = "#ff7f0e") +
  # 调整主题，让图表更贴近传统热力图风格
  theme_minimal() +
  theme(
    panel.grid = element_blank(),  # 去掉网格线
    axis.text = element_text(size = 10),
    legend.position = "right"
  ) +
  # 添加标签，让图表更清晰
  labs(
    x = "X轴变量",
    y = "Y轴变量",
    fill = "颜色对应变量",
    size = "大小对应变量",
    title = "带动态方块大小的四变量热力图"
  )

3. 自定义小技巧 #

• 如果你的x/y变量是连续但有大量重叠值，可以先对数据做聚合，比如按x/y分组计算均值：

  df_agg <- df %>%
    group_by(x, y) %>%
    summarise(
      fill_var = mean(fill_var),
      size_var = mean(size_var),
      .groups = "drop"
    )
  

• 想要方块之间有更明显的间隔，可以把geom_point的color参数改成灰色（比如color = "#eeeeee"）；
• 可以替换scale_fill_gradient为scale_fill_viridis_c()来使用更友好的色盲友好配色。

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