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

莹莹光

3485

收藏 2021-03-31

真心求教，请问如何利用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文件？

扫码加我拉你入群

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

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

全部回复

owenqi

2021-4-1 04:20:17

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

复制代码

扫码加我拉你入群

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

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

乐天天12300

2021-4-6 14:12:57

复制代码

扫码加我拉你入群

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

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

有机骆驼/sun

2021-5-16 21:31:37

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,"你的地址+文件名")
}

扫码加我拉你入群

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

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

有机骆驼/sun

2021-5-16 21:34:04

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,你的地址+文件名)
}

扫码加我拉你入群

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

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

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

分享

扫码加好友，拉您进群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群