R for循环仅完成第一次迭代

我正在尝试按列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)
}
}

splittit您定义：

x<- length(data)

x您定义了：

x<- length(data)

xClassic:Make
for（i in x）
to
for（i in 1:x）
击败我：）-花了一个小时寻找那一次，我永远不会忘记。我认为
write.cv
覆盖了文件。为了使
write.csv
的参数具有不同的名称，您必须改进代码。看看这个讨论：这里是完全的初学者，所以我知道这将是一些小东西@havok你应该把它作为一个答案发布，这样它就可以解决了。经典：Make
for（i in x）
to
for（i in 1:x）
Beat me to:）-花了一个小时寻找那一次，永远不会忘记。我认为
write.cv
覆盖了文件。为了使
write.csv
的参数具有不同的名称，您必须改进代码。看看这个讨论：这里是完全的初学者，所以我知道这将是一些小东西@havok你应该把它作为一个答案发布，这样它就被解决了。