使用R中的图像函数的零和一的矩阵的热图

Question

如何制作给定矩阵的黑白热图，其中零和一些零用黑色表示，而用白色用白色图像函数表示r？

Answer 1

制作一个矩阵：

set.seed(42)
mat <- matrix(round(runif(100)), ncol = 10)
mat
#>       [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
#>  [1,]    1    0    1    1    0    0    1    0    1     1
#>  [2,]    1    1    0    1    0    0    1    0    0     0
#>  [3,]    0    1    1    0    0    0    1    0    0     0
#>  [4,]    1    0    1    1    1    1    1    0    1     1
#>  [5,]    1    0    0    0    0    0    1    0    1     1
#>  [6,]    1    1    1    1    1    1    0    1    1     1
#>  [7,]    1    1    0    0    1    1    0    0    0     0
#>  [8,]    0    0    1    0    1    0    1    0    0     1
#>  [9,]    1    0    0    1    1    0    1    1    0     1
#> [10,]    1    1    1    1    1    1    0    0    0     1

绘制它：

image(t(mat[nrow(mat):1,]), col = c("black", "white"))

t()和nrow(mat):1用于重新排序矩阵，以便矩阵图像与打印矩阵匹配。