矩阵按照列切割

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

我有一个10*500的矩阵
不写循环的话，如何按照列切割成5个10*100的矩阵。1-100列为第一个矩阵，以此类推。。。

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：切割

#假设你的矩阵名叫df
start <- seq(1,500,100)
end <- seq(100,500,100)
for (i in 1:5) {assign(letters[i],df[,start[i]:end[i]])}

zerofung 发表于 2016-8-21 17:20
#假设你的矩阵名叫df
start

谢谢回复。其实还是用循环做的是吧？如何提取每个子矩阵呢。

对，我目前能想到的就是用循环做。另外我不知道你说的提取是什么意思，因为我的代码是已经“提取”出来了并分别命名为a、b、c、d、e的，如果你对提取出来的命名有其他要求，改assign的第一个参数就好

1. m = matrix(rnorm(10*500), nrow=10)
   
2. 
   
3. ms = tapply(1:500, ceiling((1:500)/100), function(i) m[, i])

复制代码

假设你的10*500的matrix变量叫做mat，可：
dim(mat) <- c(10, 100, 5)
如果需要第一个矩阵：
mat[, , 1]
需要第n个矩阵：
mat[, , n] (1<= n <=5)

cheetahfly 发表于 2016-8-22 08:35
假设你的10*500的matrix变量叫做mat，可：
dim(mat)

这种方法，遇到既要分列，又要分行时，操作起来就困难了

来学习一下