R语言 用循环语句矩阵拆分

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

我的数据test_cbind是116*696（116*6）的长矩阵，我想要把它拆分成6个116*116的小矩阵，并且矩阵的名字命名为t1：t6。

我的命令是非常机械的：

t1 <- test_cbind[,1:116]

t2 <- test_cbind[,1*116+1:2*116]

t3 <- test_cbind[,2*116+1:3*116]

t4 <- test_cbind[,3*116+1,4*116]

t5 <- test_cbind[,4*116+1,5*116]

t6 <- test_cbind[,5*116+1,6*116]

想问下有没循环可以一下子生成？

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：循环语句 R语言 bind test IND R语言 数据分析 矩阵拆分

test.cbind <-  rnorm(116*696)
test.cbind <- matrix(test.cbind, nrow=116)
for(i in 1:6){
  str <- paste('t',i, '<-','test.cbind[,(1+',(i-1)*116,'):(',i*116,')]', sep='')
  print(str)
  eval(parse(text=str))
}

ls()


你可以看到新生成的t1-t6六个变量。

t1 <- test_cbind[,1:116]
t2 <- test_cbind[,(116+1):(2*116)]
t3 <- test_cbind[,(2*116+1):(3*116)]
t4 <- test_cbind[,(3*116+1):(4*116)]
t5 <- test_cbind[,(4*116+1):(5*116)]
t6 <- test_cbind[,(5*116+1):(6*116)]