r语言批量读取sav文件，再分别批量保存为csv文件？谢谢大家

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

真心求教，请问如何利用r语言批量读取sav文件，再分别批量保存为csv文件？
目前我只会一个个读取sav文件在一个个保存为csv文件，谢谢各位不吝赐教！

#调整运行的地址

> getwd()

> setwd("D:\\tmpr9t7_s")

#安装foreign

> install.packages("foreign")

> library(foreign)

>  data <- read.spss("15234942807.sav", to.data.frame=TRUE)#注意R软件对大小写敏感

> summary(data)

#导出

> write.csv(data,"D:\tmpr9t7_s\15234942807.csv")

> write.csv(data,"15234942807.csv")

请问如何写一个循环实现r语言批量转换sav文件为csv文件？

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：R语言 sav Packages Foreign install

循环也行，向量化也行，看你自己，目录选择有三种情况，实际命名可以根据这三种情况微调，我例子里面用的是第三种情况。

1. # data_dir <- "sav"        #1 path to folder that holds multiple .sav files
   
2. # data_dir <- choose.dir() #2 choose folder manually
   
3. # data_dir <- '.'          #3 same folder as the .sav files
   
4. 
   
5. sav_files <- fs::dir_ls(data_dir, regexp = "\\.sav$")
   
6. sav_data <- lapply(sav_files, haven::read_sav)
   
7. names(sav_data) <- gsub('.sav', '', x = names(sav_data))
   
8. 
   
9. lapply(1:length(sav_data), function(i) write.csv(sav_data[[i]],
   
10.                                                 file = paste0(names(sav_data[i]), ".csv"),
    
11.                                                 row.names = FALSE))

复制代码

1. library(foreign)
   
2. filenames <- list.files(pattern = ".sav$", path = "新建文件夹")
   
3. for (i in 1:length(filenames)) {
   
4.   filename <- stringr::str_replace_all(filenames[i], ".sav", "")
   
5.   outfile <- stringr::str_replace_all(filenames[i], ".sav", ".csv")
   
6.   assign(filename, read.spss(filenames[i]))
   
7.   write.csv(eval(as.name(filename)), outfile)
   
8. }

复制代码

library(foreign)

file_list <- list.files("你的地址")
data_list <- list()
n <- 1
for (i in file_list) {
    data <- read.spss(i, to.data.frame=TRUE)#注意R软件对大小写敏感
    data_list[[n]] <- data
    n <- n+1
}

#导出
for (i in data_list) {
    write.csv(i,"你的地址+文件名")
}

library(foreign)

file_list <- list.files("你的地址")
data_list <- list()
n <- 1
for (i in file_list){
    data <- read.spss(i, to.data.frame=TRUE)
    data_list[[n]] <- data
    n <- n+1
}

for (i in data_list){
    write.csv(i,你的地址+文件名)
}