如何在R语言ggplot中将1110条数据匹配到对应网格区块？

前提：确保数据包含网格位置信息 #

你的dataframe必须有标记每个观测值对应网格位置的变量（比如grid_row行号、grid_col列号）——因为ggplot是基于数据映射的，没有位置信息没法对应到网格。如果还没加，可按以下方式生成并合并：

# 假设原始数据叫df，核心数值列是value
# 先确定网格的行列数（比如30行×37列=1110个区块）
grid_positions <- expand.grid(grid_row = 1:30, grid_col = 1:37)
# 按网格顺序合并到原始数据（确保数据顺序和网格区块顺序完全对应）
df <- cbind(df, grid_positions)

基础实现：区块+数据值 #

用geom_tile绘制网格区块，geom_text把数值放到每个区块中心：

library(ggplot2)

ggplot(df, aes(x = grid_col, y = grid_row)) +
  # 绘制网格区块边框（可选，用于区分格子）
  geom_tile(fill = "white", color = "black") +
  # 在区块中心显示数据值（round控制小数位数）
  geom_text(aes(label = round(value, 2)), size = 3) +
  # 反转y轴，让行号1对应网格顶部（符合常规阅读习惯）
  scale_y_reverse() +
  # 隐藏冗余的坐标轴元素
  theme_minimal() +
  theme(
    axis.text = element_blank(),
    axis.title = element_blank(),
    panel.grid = element_blank()
  )

进阶：数值关联区块颜色 #

如果想让区块颜色随数值变化，直接把fill映射到value：

ggplot(df, aes(x = grid_col, y = grid_row)) +
  geom_tile(aes(fill = value)) +
  # 白色文字在深色区块更清晰，可根据配色调整
  geom_text(aes(label = round(value, 2)), color = "white", size = 3) +
  # 用viridis配色，颜色区分度高且友好色弱群体
  scale_fill_viridis_c() +
  scale_y_reverse() +
  theme_minimal() +
  theme(
    axis.text = element_blank(),
    axis.title = element_blank(),
    panel.grid = element_blank()
  )

关键注意事项 #

• 顺序严格对应：如果你的网格是行优先（从上到下、从左到右）排布，记得对grid_positions做排序：grid_positions <- arrange(grid_positions, grid_row, grid_col)，避免数据和区块错位。
• 不规则网格处理：如果是不规则子区域，需提前计算每个区块的中心坐标（或多边形顶点数据），将中心坐标作为x/y映射变量，用geom_polygon绘制区块后，再用geom_text放置数值。

内容的提问来源于stack exchange，提问作者Carlos Ramírez