matrix：行列均颠倒顺序 R

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

target: Each row of `volcano` corresponds to a grid line running east to west. Each column of `volcano` corresponds to a grid line running south to north. Define a matrix `volcano.rev` by reversing the order of the rows, as well as the order of the columns, of `volcano`. Therefore, each row `volcano.rev` should now correspond to a grid line running west to east, and each column of `volcano.rev` a grid line running north to south.

my code:

1. volcano.vector<- as.vector(volcano)  #just like matrix,as.vector() serves bycol auromatically
   
2. tail(volcano.vector)
   
3. volcano.rev<-matrix(rev(volcano.vector),nrow = nrow(volcano))
   
4. #volcano.rev[,1:5]
   
5. #tail(volcano)[,1:5]

复制代码

结果很奇怪，找不到对应结果的逻辑，what's wrong with that?

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：matrix Mat therefore responds running R语言

楼主可以试着操作一下维度比较小的矩阵，然后可能就清楚了，比如下面这个例子

1. m <- matrix(1:16, 4)
   
2. mr <- matrix(rev(m), 4)
   
3. mrc <- apply(m, 2, rev)
   
4. mrr <- apply(m, 1, rev)

复制代码

其实我的方法和代码都没有错，只是数据集太复杂导致我的简单看看数据的验证方法不管用。我现在是这么做的

1. volcano.vector <- as.vector(volcano)
   
2. volcano.rev <- matrix(rev(volcano.vector),nrow = nrow(volcano))  # method 1
   
3. 
   
4. volcano.rc <- apply(volcano,2,rev)
   
5. volcano.rr <- apply(volcano.rc, 1,rev)
   
6. volcano.rev.2 <- t(volcano.rr)               # method 2
   
7. 
   
8. identical(volcano.rev,volcano.rev.2)      ##TRUE

复制代码

owenqi 发表于 2019-10-12 05:13
楼主可以试着操作一下维度比较小的矩阵，然后可能就清楚了，比如下面这个例子

检验思路确实更清晰。感谢