如何在R中绘制带颜色映射的数值网格图？

针对你的需求，我整理了两种简单高效的实现方法，用到R中最常用的可视化工具包，帮你快速生成符合要求的网格热图（数值越小颜色越浅，越大颜色越深）：

第一步：整理数据 #

首先把你生成的9组数值整理成R绘图友好的格式，这里提供两种形式（分别对应不同的绘图包）：

# 形式1：tidy数据框（适合ggplot2）
df <- data.frame(
  X = rep(1:3, each = 3),
  Y = rep(c(0.1, 1.1, 2.1), 3),
  Value = c(13.1, 19.1, 25.1, 13.2, 20.2, 27.2, 13.3, 21.3, 29.3)
)

# 形式2：矩阵（适合pheatmap）
value_matrix <- matrix(df$Value, nrow = 3, byrow = TRUE,
                       dimnames = list(X = 1:3, Y = c(0.1, 1.1, 2.1)))

方法一：用ggplot2绘制灵活自定义的网格图 #

ggplot2是R中最流行的可视化包，用geom_tile可以轻松实现网格色块，配合颜色渐变满足你的需求：

# 先加载包（如果没安装先运行 install.packages("ggplot2")）
library(ggplot2)

ggplot(df, aes(x = factor(Y), y = factor(X), fill = Value)) +
  geom_tile(color = "white") + # 用白色线条分隔网格
  geom_text(aes(label = Value), color = "black", size = 4) + # 在网格内显示数值
  scale_fill_gradient(low = "#f0f9e8", high = "#006d2c") + # 自定义浅到深的配色，可按需调整
  labs(x = "Y", y = "X", fill = "数值") +
  theme_minimal() +
  theme(panel.grid = element_blank()) # 去掉默认背景网格

这个方案的优势是高度可定制，你可以随意调整字体、配色、布局等细节。

方法二：用pheatmap绘制专业热图 #

如果你想要更简洁的热图实现，pheatmap包是专门做这类网格热图的工具，代码更简洁，默认效果就很美观：

# 先加载包（如果没安装先运行 install.packages("pheatmap")）
library(pheatmap)

pheatmap(value_matrix,
         color = colorRampPalette(c("#f7fbff", "#08306b"))(100), # 浅蓝到深蓝的渐变
         display_numbers = TRUE, # 显示每个网格的数值
         cluster_rows = FALSE, cluster_cols = FALSE, # 关闭聚类，保持X/Y的原始顺序
         main = "X-Y数值对应热图",
         legend_title = "数值")

这个包默认会处理好图例、网格对齐等细节，非常适合快速生成专业热图。

小提示：优化你的数值生成代码 #

注意到你原代码中有同名循环变量（外层和内层都用了i），这会导致变量覆盖的问题，建议把内层循环的变量改成j，优化后的代码如下：

total <- c()
X <- 1
for(i in 1:3){
  Y <- 0.1
  index <- 1
  index1 <- 1
  value <- c()
  values <- c()
  for(j in 1:15){ # 将内层的i改为j，避免变量覆盖
    value[index] <- 10 + X*Y + j
    if(index %% 5 == 0){
      values[index1] <- mean(value)
      index1 <- index1 + 1
      index <- 0
      value <- c()
      Y <- Y + 1
    }
    index <- index + 1
  }
  total <- c(total, values)
  X <- X + 1
}
total <- total[-1]

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