在循环的每个迭代中以csv格式写入新行 for（1中的i：长度（mdma4）） { 结果

将结果放入数据帧，并将数据帧写入循环外部。 它更有效，而且更简单

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 = ",")
}

n=长度（mdma4）
ncols=4#在这里输入COL数
请给出一个可复制的示例。我建议在循环中创建一个变量（或使用应用程序），然后在最后写入文件，而不是在循环中写入文件。调试也更容易。
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 = ",")