小编Jen*_*ary的帖子

我正在尝试按列 Customer.Code 拆分 csv 文件并将生成的数据帧写入单独的 csv 文件。

splittit<- function(file){

data<-read.csv(file)

data<-split(data,data$Client.Code)

x<- length(data)

for(i in x){
  custdata<- data[i] 
  custdata<- as.data.frame(custdata)
  customer<- custdata[1,18]
  customer<- as.vector(customer)
  filename<- paste(as.character(customer),".csv")
  write.csv(custdata, file= filename)
}
}

如果有人能帮助我解释为什么只写入第一个 csv 文件，我将不胜感激。

提前致谢