Question

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

Answer 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)
})

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

1 个答案: