用R中的选定颜色为像素矩阵着色

我有一个像素矩阵，如下所示：

0000 0001 0010 0100 1000 0011 0101 0110 1001 1010 1100 0111 1011 1101 1110 1111
CTR_NCOR      0    0    0    0    1    0    0    0    1    1    1    0    1    1    1    1
CTR_CTRI      0    0    0    1    0    0    1    1    0    0    1    1    0    1    1    1
NCOR_NCORI    0    0    1    0    0    1    0    1    0    1    0    1    1    0    1    1
NCORI_CTRI    0    1    0    0    0    1    1    0    1    0    0    1    1    1    0    1

我可以使用R中的

image（）

函数创建像素矩阵，但只能使用两种颜色。 我正在尝试将以下“颜色矩阵”应用于图像

 [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12] [,13] [,14] [,15] [,16]
[1,]    0    0    0    0    1    0    0    0    2     2     2     0     3     3     3     4
[2,]    0    0    0    1    0    0    2    2    0     0     2     3     0     3     3     4
[3,]    0    0    1    0    0    2    0    2    0     2     0     3     3     0     3     4
[4,]    0    1    0    0    0    2    2    0    2     0     0     3     3     3     0     4

因此，每个正方形使用相应的数字作为.factor（）来为具有1的单元格着色。 使用

我只得到黑色和蓝色的方块，而我想得到的是（在第二个矩阵中的数字后面）

• 灰色（0秒）
• 绿色（用于1s）
• 红色（用于2秒）
• 蓝色（用于3秒）
• 浅蓝色（适用于4s）

---

任何洞察都会很棒！谢谢：）

你可以试试这个。R索引从1开始，而不是从0开始）：

---

yourmat在处理矩阵时，应该忘记使用因子。该类对象不接受允许因子存在于R宇宙中的必要属性。
image(first_matrix, col=as.factor(second_matrix),axes=F)

image( x=1:4, y= 1:16, z=1+yourmat, 
      col= c("gray","green","red","blue","lightblue") )

yourmat <- 
structure(c(0, 0, 0, 0, 1, 0, 0, 0, 2, 2, 2, 0, 3, 3, 3, 4, 0, 
0, 0, 1, 0, 0, 2, 2, 0, 0, 2, 3, 0, 3, 3, 4, 0, 0, 1, 0, 0, 2, 
0, 2, 0, 2, 0, 3, 3, 0, 3, 4, 0, 1, 0, 0, 0, 2, 2, 0, 2, 0, 0, 
3, 3, 3, 0, 4), .Dim = c(4L, 16L))