r - 在 R 中将数字矩阵转换为颜色矩阵

Question

我有以下包含数字 0-4 的 4x4 数字矩阵:

0  1  0  3
3  2  1  4
4  1  0  2
3  3  0  1

我想了解如何使用选定的颜色和使用 R 的特定正方形尺寸(长 x 宽)将数字矩阵转换为颜色矩阵。为了清楚起见，我将颜色矩阵定义为使用彩色正方形表示特定值的图形矩阵方向。来自另一个程序的示例 4x4 如下:



我必须为数字分配颜色代码，例如:

0 = FFFFFF
1 = 99FF66
2 = 66FF33
3 = 33CC00
4 = 009900

但我不知道从哪里开始把这些放在一起。我想我还必须指定颜色方块的尺寸。

我的目标是能够将最多包含 10 个数值的数据框导入到 R 中，并为最大 20x20 的矩阵创建这些颜色图表。

Answer 1

这是我会做的:

d<-read.table(text="
0  1  0  3
3  2  1  4
4  1  0  2
3  3  0  1")

cols <- c(
'0' = "#FFFFFF",
'1' = "#99FF66",
'2' = "#66FF33",
'3' = "#33CC00",
'4' = "#009900"
)
# the names aren't necessary here.

image(1:nrow(d), 1:ncol(d), as.matrix(d), col=cols)

如果您希望方向不同，您可以 rotate the matrix :

image(1:nrow(d), 1:ncol(d), t(apply(d, 2, rev)), col=cols)

要摆脱所有文本和边框，您可以尝试:

image(1:nrow(d), 1:ncol(d), as.matrix(d), col=cols, 
  xaxt="n", yaxt="n", bty="n", xlab="", ylab="")