R을 사용하여 격자 모델 표시

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

# ======= # Reading a file named "matrix.dat" =======
x <- read.table("matrix.dat")      
# =================================================== 

N <- 5  # Number of rows
M <- 6  # Number of columns

# ======= Plot axes =======
 plot(0:1, type="n",xlab="Column", ylab="Row",axes=F,xlim=c(0,M),ylim=c(N,0))  
 axis(1, pos = 0,label=F)
 axis(2, pos = 0,label=F)
# ==========================

# ======= Paint eash site =======
for (i in 1:N) {            
    for (j in 1:M) {    
       if(x[i,j]==0){
          rect(j-1,i-1,j,i, col=rgb(1,1,1),border=rgb(0,0,0))  # col="white",border="black"
       }else if(x[i,j]==1){
          rect(j-1,i-1,j,i, col=rgb(0,1,0),border=rgb(0,0,0))  # col="green",border="black"
       }else if(x[i,j]==2){
          rect(j-1,i-1,j,i, col=rgb(0,0,1),border=rgb(0,0,0))  # col="blue",border="black"
       }else{
          rect(j-1,i-1,j,i, col=rgb(1,0,0),border=rgb(0,0,0))  # col="red",border="black"
       }      
     }
 }           
# ================================

# ====== Generate a pdf file (if you need) ======
dev.copy(pdf, file="lattice.pdf")
 dev.off()  
# =============================================