在 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="")