如何在CSV文件夹中编写循环，并为每个文件夹添加一列并填充它

Question

我在Matrix格式中有超过1400 csv，我想将每个矩阵的下三角或上三角的平均值添加到csv表中。

现在我可以按照我想要的方式获取所有值的平均值，但是我无法将值添加到现有的csv表中。每次我尝试write.csv时，它只会留下一个值并删除所有现有字段。

file_list <- list.files(path=folder, pattern="*.csv")

dfList <- lapply(files, function(i) {
 df <- read.csv(i)
 df$mean <- gsub("mean", "", i) 
 return(df)
  })

 csvlist<-lapply(files,function(i)
 {(mean(as.numeric(sm2vec(subset(as.matrix(read.csv(i)),select = -
 Document)))))
  })

for (i in 1:length(file_list)){write.csv(file_list[j],file = 
file_list[i],append = TRUE)}

这些是我尝试过的一些事情。