循环将矩阵转成列向量

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

请问，如果我有N个20乘10的矩阵，需要循环处理成200乘1的向量，再append到一起，如下：

1. dim(mean_20120801) <-c(200:1)
   
2. dim(mean_20120802) <-c(200:1)
   
3. dim(mean_20120803) <-c(200:1)

复制代码

然后再把这三个矩阵连在一起，形成一个600*1的列矩阵，请问该怎么些成循环
感谢各位~

扫码加我 拉你入群

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

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

分享0 收藏2 回帖

关键词：append mean Pen DIM App

你说的append一起，是最后出来一个100*N的矩阵，还是100N*1的向量？？

1. x1<-matrix(rnorm(100),10)
   
2. x2<-matrix(1:100,10)
   
3. xx<-list(x1,x2)
   
4. x3<-(sapply(xx,unlist))
   
5. dim(x3)<-c(100*2,1)
   
6. x3

复制代码

这一段代码可以实现上述的两个要求

jiangbeilu 发表于 2015-1-9 21:18
这一段代码可以实现上述的两个要求

你好，谢谢你的回答，但是我想知道怎么能通过循环处理

求好心人帮帮忙

R循环很慢的，能不用则不用

1. x1 <-matrix(rnorm(100),10)
   
2. x2 <-matrix(1:100,10)
   
3. xx <-list(x1,x2)
   
4. 
   
5. for (i in 1:length(xx)){
   
6.   dim.mat <- dim(xx[[i]])
   
7.   dim(xx[[i]]) <- c(dim.mat[1]*dim.mat[2], 1)
   
8.      }
   
9. x <- matrix(unlist(xx),200)

复制代码

多用apply家族，再学学，plyr和dplyr会处理很多问题。

我的方法：

1. a <- b <- c <- matrix(1:200, 20, 10)
   
2. d <- sapply(list(a, b, c), as.vector)
   
3. e <- as.vector(d)

复制代码

1. a <- b <- c <- matrix(1:200, 20, 10)
   
2. abc <- list(a,b,c)
   
3. for(i in 1:length(abc)){
   
4. dim.mat <- dim(abc[[i]])
   
5. dim(abc[[i]]) <- c(dim.mat[1]*dim.mat[2],1)
   
6.   }
   
7. abc.final <- matrix(unlist(abc),600)

复制代码