R中 如何合并100个数据框

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

如题，cbind怎么加入循环？急求！！！！

扫码加我 拉你入群

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

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

分享0 收藏6 回帖

关键词：数据框 bind CBI bin IND 如何

直接cbind(x1 x2 x3.....x100)不行？？？

远飞SOA 发表于 2013-12-21 18:42
直接cbind(x1 x2 x3.....x100)不行？？？

我的意思是更多的话要一个一个的输入吗？如果是1000个呢

何不换个思路，弄个空矩阵去赋值替换呢。。

cr7madrid 发表于 2013-12-21 19:15
我的意思是更多的话要一个一个的输入吗？如果是1000个呢

何不换个思路，弄个空矩阵去赋值替换呢。。

远飞SOA 发表于 2013-12-21 21:09
何不换个思路，弄个空矩阵去赋值替换呢。。

想过替换空矩阵，但我写的for循环总错，能给我简单的例子参考下吗？

应该可以符合你的要求了忘了提醒，生成的外部数据 data_1.csv,data_2.csv....data_100.csv, 在R目录下，不要出现其他文件重名，否则覆盖。覆盖了，，，不负责。

1. set.seed(100)
   
2. data<- data.frame(x=sample(1:10000,10000,replace=T),y=sample(1:10000,10000,replace=T))
   
3. #data分为100份：对象为data_1, data_2,,,,,data_100
   
4. #如果外部文件夹数据的话，先模拟生成外部数据
   
5. for(i in 1:100){
   
6.   ind_1= (i-1)*100+1
   
7.   ind_2= i*100
   
8. assign(paste("data",i,sep="_"),data[ind_1:ind_2,])
   
9. write.csv(x=assign(paste("data",i,sep="_"),data[ind_1:ind_2,]),file=paste("data_",i,".csv",sep=""),row.names=F)
   
10. }
    
11. #把外部data_1,data_2,,,data_100合并为dat1
    
12. dir <- paste("data_",1:100,".csv",sep="")
    
13. dat1=do.call(cbind,lapply(dir,read.csv))
    
14. 
    
15. 
    
16. #如果是内部的数据，data分为100份：对象为data_1, data_2,,,,,data_100
    
17. for(i in 1:100){
    
18.   ind_1= (i-1)*100+1
    
19.   ind_2= i*100
    
20.   assign(paste("data",i,sep="_"),data[ind_1:ind_2,])
    
21. }
    
22. 
    
23. #存在data_1,data_2,,,,,data_100的对象于内存中
    
24. #ls()查看，get(the objects'name)  合并dat2
    
25. do.call(cbind,lapply(paste("data",1:100,sep="_"),get))

复制代码

用do.call

先把所有数据并到一个list
data <- lapply(paste0("x", 1:100), function(x) eval(as.name(x)))

do.call("cbind", data)

很不错呀啊，赞一个额！

jmpamao 发表于 2013-12-21 23:06
应该可以符合你的要求了

太感谢了！！！！