-3
我想产生一个循环的后续编写循环产生数据框和矩阵
a<-DF[1,]
mymatrix1<- as.matrix(a)
所以,我的下一行,做手工将
b<-DF[2,]
mymatrix2<-as.matrix(b)
和未来
c<-DF[3,]
mymatrix3<-as.matrix(c)
等等。我有800行。我相信r的力量不需要写出800次。
我想产生一个循环的后续编写循环产生数据框和矩阵
a<-DF[1,]
mymatrix1<- as.matrix(a)
所以,我的下一行,做手工将
b<-DF[2,]
mymatrix2<-as.matrix(b)
和未来
c<-DF[3,]
mymatrix3<-as.matrix(c)
等等。我有800行。我相信r的力量不需要写出800次。
试试这个:
for (i in 1:ncol(DF)){
assign(paste0('mymatrix',i),DF[,i])
}
我不知道有什么好处你必须与'mymatrix1','mymatrix2' ......你会不会在'DF有[1]', 'DF [2,]'.. –
试试'lapply(split(DF,seq_len(nrow(DF))),as.matrix)'。真正的问题是为什么你想这样做。 – nicola