字符类型矩阵的图解

Question

我正在寻找一种绘制字符类型矩阵的方法：

m=matrix(data=c("A","A","B","B","B","C","C","B"),nrow=4,ncol=2)
> m
     [,1] [,2]
[1,] "A"  "B" 
[2,] "A"  "C" 
[3,] "B"  "C" 
[4,] "B"  "B" 

有一组已定义的颜色

A="Yellow"
B="Blue"
C="Green"

我是否应该从矩阵传递给ascii，并使用来自sp包的image()

我看起来就像这样：

​

​

Answer 1

这取决于你所说的“绘制矩阵”是什么意思：

 m2 <- m
 m2[] <- c("yellow", "blue","green")[match(m, c("A","B","C"))]
 m2
#------------
 [,1]     [,2]   
[1,] "yellow" "blue" 
[2,] "yellow" "green"
[3,] "blue"   "green"
[4,] "blue"   "blue" 
#------------
plot(row(m2), col(m2), col=m2, pch=18, cex=4)

这将在矩阵m的行和列确定的矩阵位置绘制指定颜色的实心钻石。image的另一种方法

m2[] <- match(m, c("A","B","C"))
mode(m2) <- "numeric"
m2
image(1:nrow(m2), 1:ncol(m2), m2, col=c("yellow", "blue","green"))

​

​