【R语言】热力图

热力图是一种可视化数据的方法，通常用于显示矩阵或网格数据的模式和趋势。它的主要特点是使用颜色来表示数据的数值大小，从而让观察者可以直观地理解数据的分布情况。

在一个热力图中，数据被组织成一个二维的矩阵，每个单元格代表一个数据点。单元格的颜色根据数据的数值大小进行着色，通常使用渐变色来表示不同数值的大小，比如较小的值可能用较浅的颜色，较大的值用较深的颜色。如下图所示：

代码如下： 

library(lattice) #导入lattice包

data <-  matrix(rnorm(100), nrow = 10, ncol = 10) #使用matrix()函数生成一个大小为10x10的随机矩阵data，矩阵中的值是从标准正态分布中随机抽取的
rownames(data) <- paste(seq(1, 10, by = 1), sep="") #使用paste()函数生成行和列的名称，行名为"1"到"10"，列名也为"1"到"10"
colnames(data) <- paste(seq(1, 10, by = 1), sep="") 
myPanel <- function(x, y, z, ...) {
  panel.levelplot(x, y, z, ...) #定义了一个自定义的绘图函数myPanel，该函数用于绘制每个矩形格子中的内容。这个函数接受四个参数：x表示横坐标，y表示纵坐标，z表示要绘制的值，...表示其他参数
  panel.text(x, y , ifelse(z > 0, "+", "-"),cex = 1, col = "black") #在myPanel函数中，首先调用panel.levelplot()函数绘制矩形格子，然后根据每个格子的值决定在格子中心显示"+"或"-"，并使用panel.text()函数实现
  ifelse(z > 0, "+", "-") #表示如果z的值大于0，则显示"+"，否则显示"-"
}
levelplot(data, panel = myPanel, aspect = 1) #使用levelplot()函数绘制矩阵数据的等值图，其中panel参数指定使用自定义的绘图函数myPanel，aspect参数指定方块的宽高比例为1