在每次迭代for循环中在csv中写入新行

Question

for (i in 1:length(mdma4)) 
{
result <- mdma$MRP.Area[grepl(mdma4[i], mdma$Material)] 
result <- unique(result)
result <- rbind(data.frame(as.list(result)))
write.table(result, file = "mrp_area_missing.csv", append = TRUE,sep = ",")
}

我需要在每次循环迭代时写csv文件，它应该在文件中添加一行上面的代码，正在创建单行文件请帮助

Answer 1

将结果放入数据帧中，并将数据帧写入循环之外。它更有效率，也更容易。

n=length(mdma4)
ncols= 4 # put here number of cols
out <-data.frame(matrix(rep(1,n*ncols),n,ncols))

for (i in 1:n){
    result <- mdma$MRP.Area[grepl(mdma4[i], mdma$Material)] 
    result <- unique(result)
    out[i,]<-result
} 

write.table(out, file = "mrp_area_missing.csv",sep = ",")