创建矩阵

...
a <- letters[1:10]
a
...

创建数组

...
dim(a)=c(2,5)
a
...

画热图

...
install.packages("pheatmap")
library(pheatmap)
a <- seq(1:10)
dim(a)=c(2,5)
pheatmap::pheatmap(a)
a
...