合并从filename中添加日期信息的数据帧

Question

我可以从废弃的政府数据中获取，这种数据的有用结构较少。它的20个dfs看起来像：

每个df都以年份命名，例如，X2006.csv是在X2006数据框对象中导入的。它们都有一个Total行和一个总列，稍后我将对其进行处理。现在，我的问题是：

• 如何合并这些dfs，添加一个包含数据框名称年份信息的列？

Answer 1

您可以使用do.call：

，而不是使用循环

require(tidyverse)

#Creating sample data set - 10 data.frames
for (i in 1:9){
  assign(paste("x200", i, sep=""),
         data.frame(x = c(1:20)))
  }


#Creating the big data.frame
MyBigDataframe <- do.call(rbind.data.frame, mget(ls(pattern = "x20"))) %>% 
  rownames_to_column("file")

Answer 2

startYear <- 1998
endYear <- 2017

myData <- data.frame()

require(plyr)

for (myYear in startYear:endYear){
    df <- get(paste0("X", as.character(myYear)))

    df$Year <- myYear

    myData <- rbind.fill(myData, df)
}