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

2329

收藏 2018-08-31

我的数据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]

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

扫码加我拉你入群

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

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

全部回复

kantdisciple

2018-8-31 09:21:51

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六个变量。

扫码加我拉你入群

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

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

乌衣巷q

2018-8-31 09:55:06

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)]

扫码加我拉你入群

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

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

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

分享

扫码加好友，拉您进群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群