[问答] 关于批量导出CAV格式数据 [推广有奖]

11楼

愤怒的小鸟！ 发表于 2015-10-1 11:26:16

我上传了两个表数据，我写的简化的程序是这样的
setwd("D:\\RBOOK")
y<-list.files(pattern=".csv")
z<-lapply(y,function(x) read.csv(x,header=T))
varname<-paste("pro",1:22,sep="")

for(r in 1:2){a.r<-z[[r]]
            b.r<-data.frame(a.r[,c(1,2,10)])
            for(i in varname){assign(i,b.r)
                              write.csv(b.r,paste(i,".csv",sep=""))}}
但是发现到处的表格数据都是一样的

北京.xlsx
下载链接: https://bbs.pinggu.org/a-1886269.html

5.85 MB

安徽.xlsx

2.16 MB

12楼

蓝色 发表于 2015-10-2 10:21:23

愤怒的小鸟！发表于 2015-10-1 11:26
我上传了两个表数据，我写的简化的程序是这样的
setwd("D:\\RBOOK")
y

rm(list=ls())

setwd("D:\\RBOOK")
y<-list.files(pattern=".csv")
y

z <- lapply(y, function(x) read.csv(x, header = T))

for(r in 1:2){
  nam <- paste("a", r, sep = ".")
  assign(nam, z[[r]][,c(1,2,10)])
  write.csv(get(nam), file = paste("pro", r,".csv",sep=""))
}