求助，R语言如何批量合并dta文件

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

r语言小白，想把一个文件夹下的所有dta合并起来（2002_1.dta  2002_2.dta  2002_3.dta ……），尝试了如下的代码，
library(haven)
setwd("F:/dta1/2002")
filenames <- list.files()
for (file in filenames) {
    new.data <- read_dta(file)
    all.data <- rbind(new.data)
    write_dta(all.data, "name1.dta")   
}

没有报错，是可以运行的。但是从name1的dta大小（4567kb）观察到，每次生成的name1只是保留了最后一个读取的dta数据，没有将所有的dta纵向合并，这该咋办呢？请大佬们帮忙看看，感谢解答

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：DTA文件 R语言 dta filename Library

all.data<-NULL
for (file in filenames) {
    new.data <- read_dta(file)
    if(is.null(all.data)) all.data<-new.data else all.data <- rbind(new.data)
}
write_dta(all.data, "name1.dta")  

结果总是最后一个文件结果，原因是每次没有将新读取数据加到之前的数据中，修改代码如下：

1. all.data <- NULL
   
2. for (file in filenames) {
   
3.   new.data <- read_dta(file)
   
4.   
   
5.   if(is.null(all.data)) {
   
6.     all.data <- new.data
   
7.   } else {
   
8.     all.data <- rbind(all.data, new.data)
   
9. }
   
10. write_dta(all.data, "name1.dta")  

复制代码

1. all_data <- list()
   
2. for (file in filenames) {
   
3.   all_data <- c(all_data, list(read_dta(file))
   
4. }
   
5. write_dta(rbind(all_data), "all_data.dta")  

复制代码