R：导入整个文件夹的文件

Question

我正在使用 R 编程语言（在 R Studio 中）。我正在尝试将“.txt”文件（记事本文件）的整个文件夹导入 R 并“一致地”命名它们。

我知道如何手动执行此过程：

#find working directory:

getwd()

[1] "C:/Users/Documents"

#import files manually and name them "consistently":

df_1 <- read.table("3rd_file.txt")
df_2 <- read.table("file_1.txt")
df_3 <- read.table("second_file.txt")

当然，如果有100个文件，这将需要很长时间。

现在，假设这些文件位于文件夹中：“C:/Users/Documents/files_i_want”

有没有办法一次导入所有这些文件并将它们命名为“df_1”、“df_2”、“df_3”等？

我发现另一个 Whosebug post 讨论了类似的问题：How to import folder which contains csv file in R Studio?

setwd("where is your folder")
#
#List file subdirectories
folders<- list.files(path = "C:/Users/Documents/files_i_want")
#
#Get all files...
files <- rep(NA,0)
for(i in c(1:length(folders))) 
{
    files.i <- list.files(path = noquote(paste("C:/Users/Documents/files_i_want/",folders[i], "/", sep = ""))) 
    n <- length(files.i)
    files.i <- paste(folders[i], files.i, sep = "/")
    files <- c(files, files.i)
} 
# 
#
#Read first data file (& add file name as separate column)
T1 <- read.delim(paste("C:/Users/Documents/files_i_want", files[1], sep = ""), sep = "", header=TRUE)
T1 <- cbind(T1, "FileName" = files[1])

但这会产生以下错误：

Error in file(file, "rt") : cannot open the connection
In addition: Warning message:
In file(file, "rt") :

这是命名规则有问题吗？

谢谢

Answer 1

您可以尝试以下方法：

#Get the path of filenames
filenames <- list.files("C:/Users/Documents/files_i_want", full.names = TRUE)
#Read them in a list
list_data <- lapply(filenames, read.table)
#Name them as per your choice (df_1, df_2 etc)
names(list_data) <- paste('df', seq_along(filenames), sep = '_')
#Create objects in global environment.
list2env(list_data, .GlobalEnv)

R：导入整个文件夹的文件

R: Importing Entire Folder of Files

import

r

rename