如何读取多个文本文件，为每个文件添加列标题，并在R中用新文件覆盖旧文件？

我有多个.txt格式的EEG数据文件，都保存在一个文件夹中，我希望R读取所述文件夹中的所有文件，向每个文件添加列标题（即，电极编号由1到129的顺序编号表示），并用新文件覆盖旧文件

rm(list=ls())

setwd("C:/path/to/directory")

files <- Sys.glob("*.txt")

for (file in files){

  # read data:
  df <- read.delim(file, header = TRUE, sep = ",")

  # add header to every file: 
  colnames(df) <- paste("electrode", 1:129, sep = "")

  # overwrite old text files with new text files:
  write.table(df, file, append = FALSE, quote = FALSE, sep = ",", row.names = FALSE, col.names = TRUE)

}

rm（list=ls（））
setwd（“C:/path/to/directory”）
文件试试这个

for (file in files) {
  df = read.delim(file,header = FALSE,sep = ",")
  colnames(df) = paste("electrode",1:129,sep = "")
  write.table(df, file = "my_data.txt", sep = ",")  
}

我的第一个建议是请尝试将
df
写入另一个目录。否则，如果出现问题，您的源数据也可能会损坏。我认为实现应该可以工作。唯一的限制是检查每个数据帧的colname是否正确。否则，行
olnames（df）