从文件夹中读取所有 txt 文件并为 r [重复] 中的每个文件创建单独的变量

Question

我的文件夹中有过去 15 年的年度库存数据，其中包含 15 个文件（一个文件/年）。这个文件夹也被设置为我的工作目录。我可以单独读取每个文件并将其保存到一个变量中，但我想创建一个循环或函数来读取所有文件并为每年创建一个变量。我已尝试使用以下代码，但无法获得所需的结果。有什么帮助吗？

分别读取每个文件：

allData_2000 <- read.csv("......../Data_1999-2015/scrip_high_low_year_2000.txt",sep = ",", header = TRUE, stringsAsFactors = FALSE)

allData_2001 <- read.csv("......../Data_1999-2015/scrip_high_low_year_2000.txt",sep = ",", header = TRUE, stringsAsFactors = FALSE)

但我想使用循环读取所有文件：

path <- "....Data_1999-2015"
files <- list.files(path=path, pattern="*.txt")

for(file in files)
{
        perpos <- which(strsplit(file, "")[[1]]==".")
        assign(
                gsub(" ","",substr(file, 1, perpos-1)), 
                read.csv(paste(path,file,sep=",",header = TRUE, stringsAsFactors = FALSE)))
}

Answer 1

试试这个改进的代码：

 library(tools)
library(data.table)

files<-list.files(pattern="*.csv")
for (f in 1:length(files))
assign(paste("AllData_",gsub("[^0-9]","",file_path_sans_ext(files[[f]])),sep=""), fread(files[f]))

Answer 2

试试这样吧，也许吧。

df_list = list()
counter = 1
for(file in files){
  temp_df = read.csv(paste0(path, '/', file), header=T, stringsAsFactors = F)
  temp_df$year = gsub('[^0-9]', '', file)
  df_list[[counter]] = temp_df
  counter = counter + 1
}
big_df = do.call(rbind, df_list)

创建一个空列表，然后遍历文件，读取它们。删除文件中的所有非数字字符以获取年份（这基于您的文件在上面的样子：一些文本，以及年份; 如果文件看起来不是那样，您将需要与我所做的 gsub 不同的方法），并将其创建为新变量，然后将整个数据框存储在列表中。然后将数据帧绑定到最后的单个数据帧中。

编辑：重读您的问题后，我不确定我告诉您的操作是否就是您想要做的。如果您只想将所有数据帧加载到内存中，并给它们一个变量以便您可以访问它们，而不是将它们放入单个数据帧中，我可能会这样做：

df_list = list()
for(file in files){
  temp_df = read.csv(paste0(path, '/', file), header=T, stringsAsFactors = F)
  year = gsub('[^0-9]', '', file)
  df_list[[year]] = temp_df
}

然后可以像这样访问每个数据框：df_list[['2000']] 将是 2000 年的数据框。