按行组合全局环境中的几个数据框（rbind）

Question

我正在从事一个项目，该项目从给定文件夹中导入所有 csv 文件并将它们合并到一个文件中。我能够从文件夹中的每个文件中导入我想要的行和列，但现在需要帮助将它们全部合并到一个文件中。我不知道我最终会得到多少个文件（可能大约 120 个），所以我不想一个一个地合并它们。

这是我目前所拥有的：

 # Import All files
 rowsToUse <- c(9:104,657:752)
 colsToUse <- c(15,27,28,29,30,33,35)
 filenames <- list.files("save", pattern="*.csv", full.names=TRUE)
 for (i in seq_along(filenames)) {
   assign(paste("df", i, sep = "."), read.csv(filenames[i])[!is.na(30),][rowsToUse,colsToUse])
 }

 # Merge into one file
 for (i in seq_along(filenames)) {
   df<-rbind(df.[i])
 }

代码的第一部分创建了一系列标记为 df.1、df.2 等的数据帧。我希望它们最终出现在一个名为 df 的最终数据帧中。所有文件的结构都相同。

如果有人能多花几分钟时间，我将非常感谢您的帮助！谢谢！

Answer 1

既然你已经读入了里面的文件，你可以试试下面的：

do.call(rbind, mget(ls(pattern = "df")))

ls(pattern = df) 应该捕获所有“df.1”、“df.2”等。希望您没有使用相同模式命名的其他事物，但如果您这样做了，请尝试使用更严格的模式，直到该命令仅列出您的 data.frames。

mget() 会将所有这些都带入一个list，您可以在其中使用do.call(rbind, ...)。

Answer 2

这些看起来都很复杂;)。上面的答案似乎是在“我们有一个名称非常相似的对象列表，我们如何处理”。答：他们不需要有非常相似的名字。它们甚至不必是不同的对象。

如果你不是通过 for 循环而是通过 lapply() 读取文件，你会得到一个包含所有数据帧的对象——每个对象都是一个元素。然后可以轻松地提取这些内容。所以你会有一些看起来像......

#Grab a list of filenames
filenames <- list.files("save", pattern="*.csv", full.names=TRUE)

#Iterate through that list of names, using lapply(), reading the data in.
list_of_data_frames <- lapply(filenames, function(x){

    #Read the data in
    to_return <- read.csv(x)[!is.na(30),][c(9:104,657:752),c(15,27,28,29,30,33,35)])

    #Return it. You could save lines of code (and processor time!) by just reading
    #straight into return(), but it would be a lot less clear.
    return(to_return)
})

#Now use do.call to turn it into a single data frame.
data.df <- do.call("rbind", list_of_data_frames)