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

我正在使用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")

这是因为命名约定中存在问题吗

---

谢谢

您可以尝试以下方法：

#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)

#获取文件名的路径
文件名您可以尝试以下操作：

#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)

#获取文件名的路径
文件名谢谢@Ronaksah！这很好用！我刚才问了一个关于发出警告信息的问题。这是值得关注的问题吗？警告消息：1:In-FUN（X[[i]]，…）：readTableHeader在'C:/Users/Documents/files_i_'want/3rd_file.txt'上发现的最后一行不完整2:In-FUN（X[[i]，…）：readTableHeader在'C:/Users/Documents/files_i_'want/file_1.txt'上发现的最后一行不完整'3:In-FUN（X[[i]，…）：readTableHeader在“C:/Users/Documents/files\u i\u want/second\u file.txt”上发现的最后一行不完整，该行与文本文件有关，而与代码无关。也许文本文件中有额外的新行或空格，通常忽略这些警告是安全的。谢谢@RonakShah！这很好用！我刚才问了一个关于发出警告信息的问题。这是值得关注的问题吗？警告消息：1:In-FUN（X[[i]]，…）：readTableHeader在'C:/Users/Documents/files_i_'want/3rd_file.txt'上发现的最后一行不完整2:In-FUN（X[[i]，…）：readTableHeader在'C:/Users/Documents/files_i_'want/file_1.txt'上发现的最后一行不完整'3:In-FUN（X[[i]，…）：readTableHeader在“C:/Users/Documents/files\u i\u want/second\u file.txt”上发现的最后一行不完整，该行与文本文件有关，而与代码无关。文本文件中可能有额外的新行或空格，通常可以安全地忽略此类警告。
#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)