每次迭代读取和存储数据帧

Question

我需要一个简单的代码来创建一个循环，该循环转到几个子文件夹并在每次迭代中读取那里的文件。阅读后，我想使用我拥有的因子名称来存储数据。该因子有 19 个级别，我想读取 19 个子文件夹的 19 个文件。目前，每次循环都会覆盖数据，因为读取的数据始终以相同的名称存储，并且不会循环遍历因子的名称。

我尝试过的代码：

    # read data table for each region in the control period
for(l in 1:length(regions)){
  name <- regions@data$name[l]
  setwd(paste("filepath","/",name,sep=""))
  data <- read.table(paste(name,".mit",sep=""),skip=1,header=TRUE)
  data$Date <- paste(data$YYYY,"-",data$MM,"-",data$DD,sep="")
  data$Date <- as.POSIXct(data$Date,format="%Y-%m-%d")
}

Answer 1

在不知道你的数据等情况下，你想要的是将不同文件的所有内容读入 R？然后你需要为你的循环提供一些东西来返回你的工作区。使用assign()，您可以为每个单独的区域创建一个数据框，如下所示：

 for(l in 1:length(regions)){
      name <- regions@data$name[l]
      setwd(paste("filepath","/",name,sep=""))
      data <- read.table(paste(name,".mit",sep=""),skip=1,header=TRUE)
      data$Date <- paste(data$YYYY,"-",data$MM,"-",data$DD,sep="")
      data$Date <- as.POSIXct(data$Date,format="%Y-%m-%d")
      df_name <- paste0("dataframe_",name)
      assign(df_name  ,data, envir=.GlobalEnv)

    }