一年前都記得，這次要修改，忘了，所以決定記下了。

PlotM<- function(Z,heatc=12) {
  m<-ncol(Z);
  n<-nrow(Z);
  MM<-matrix(0,m,n);
  MM[1:m,]<-t(Z[,1:m][n:1,]);
  image(MM,axes=FALSE,col=heat.colors(heatc));

}

下面是解釋

PlotM<- function(Z,heatc=12) {
  m<-ncol(Z);  #矩陣Z的行數
  n<-nrow(Z); #矩陣Z的列數
  MM<-matrix(0,m,n);  #構建一個元素全零的MM矩陣
  MM[1:m,]<-t(Z[,1:m][n:1,]);  #將Z按列逆序排列後，轉置後複製給MM矩陣
  image(MM,axes=FALSE,col=heat.colors(heatc)); #畫圖，沒有座標軸註釋，顏色選用heat.colors，將色帶分為12份。

}

執行模擬效果

ZZ<-matrix(1:8,nrow=4,ncol=2)

ZZ      [,1] [,2] [1,]    1    5 [2,]    2    6 [3,]    3    7 [4,]    4    8	MM      [,1] [,2] [,3] [,4] [1,]    4    3    2    1 [2,]    8    7    6    5
直接畫ZZ image(ZZ,axes=FALSE,col=heat.colors(12))
經過函式PlotM的、 PlotM(ZZ)