情節字符類型的矩陣

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包裹？

我期待來回這樣的事情：

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