r - 在许多列类型不规则的 csv 文件的第一列中添加文件名答案

【问题标题】：r - add filename in first column of many csv files with irregular column typer - 在许多列类型不规则的 csv 文件的第一列中添加文件名
【发布时间】：2017-12-07 20:44:04
【问题描述】：

我在一个文件夹中有许多 csv 文件，它们的名称格式相同，以日期结尾（xys 01.12.2017）。我需要将日期添加到第一列中的每个数据。我发现很多例子可以做到这一点，但在所有示例文件中都具有相同的列格式。但是我的文件不包含相同数量的列。即使列数不同，是否可以添加日期？提前感谢您的帮助。

【问题讨论】：

如果您可以提供某种reproducible example 与示例输入和所需的输出，它会更容易提供帮助。您说您尝试使用一些代码 - 您究竟尝试了什么以及它究竟是如何未能满足您的需求。

标签： r add filenames

【解决方案1】：

如果所有文件都在特定子目录中，您可以列出文件，然后使用apply() 函数读取数据并将日期添加为第一列。

# list the files
fileList <- list.files(...,full.names=TRUE)
theDataFrames <- lapply(fileList,function(x) { 
   data <- read.csv(x,header=TRUE)
   # extract all characters after 'xls' in 'xys01.01.2017'
   date <-rep(substr(x,4,nchar(x)),nrow(data))
   # bind date to data frame and return
  cbind(date, data)
})

【讨论】：