Question

我正在寻找一种使用data.table的fread和rbindlist函数快速读取和合并一堆数据文件的方法。我认为如果fread可以将文件名称的矢量作为参数，它可以是一个优雅的行，如

mergeddata = rbindlist(fread(list.files("my/data/directory/")))

但由于这似乎不是一个选项，我采取了更为尴尬的方法循环文件来读取它们并将它们分配给临时名称然后放在一起列出临时数据表名称创建。但是，每当我尝试调用data.table名称列表时，我都会被绊倒。所以我的问题是（1）如何在这种情况下将数据表名称列表传递给rbindlist，（2）更广泛地说是有更好的解决这个问题的方法吗？

提前感谢您的时间和帮助！

datafiles = list.files()

datatablelist = c()

for(i in 1:length(datafiles)){
  assign(paste("dt",i,sep=""),fread(datafiles[1]))
  datatablelist = append(datatablelist ,paste("dt",i,sep=""))
}

mergeddata = rbindlist(list(datatablelist))

Answer 1

以下是使用fread

将多个数据框绑定到一个数据框的简单方法

# Load library
  library(data.table)

# Get a List of all files named with a key word, say all `.csv` files
  filenames <- list.files("C:/your/folder", pattern=glob2rx("*.csv"), full.names=TRUE)

 # Load and bind all data sets
   data <- rbindlist(lapply(filenames,fread))

如果您想将所有数据文件绑定到数据框列表中，它就像

一样简单

# Load data sets
  list.DFs <- lapply(filenames,fread)

Answer 2

您可以执行datatablelist = lapply(list.files("my/data/directory/"), fread)，然后对结果数据框列表进行rbind。

虽然lapply比显式循环更干净，但如果将文件直接读入列表，则循环将起作用。

datatablelist = list()

for(i in 1:length(datafiles)){
  datatablelist[[datafiles[i]]] = fread(datafiles[i])
}

快速阅读和合并Data.Table的Fread和Rbindlist

2 个答案: