使用 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用於對矩陣重新排序，以便矩陣的圖像與打印的矩陣匹配。