一年前都记得,这次要修改,忘了,所以决定记下了。
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 & |

本文介绍了R语言中如何实现矩阵的逆序转置操作,通过PlotM函数进行详细解释,包括矩阵行数和列数的获取,零矩阵的构建,以及矩阵元素的转置复制,最后展示了一个模拟运行的效果。
最低0.47元/天 解锁文章
2447

被折叠的 条评论
为什么被折叠?



