如何读取多个 txt 文件并将它们保存为各自的对象名称？ [复制]

Question

我有数百个.txt 文件。我想自动化一个过程来读取它们并用它们各自的文件名保存它们。例如，我想按此顺序保存它们而不键入单个文件的名称。

mytext1.txt <-read.table("./mytext1.txt", sep = "\t")
mytext2.txt <-read.table("./mytext2.txt", sep = "\t") 

这是我尝试过的代码，它当然不会将数据框保存在单独的对象名称中。

filelist = list.files(pattern = ".*.txt")   
datalist = lapply(filelist, FUN=read.table, header=TRUE, sep = "\t")

Answer 1

你好像少了一行：

datafr = do.call("rbind", datalist)

请参阅此帖子以供参考：How do you read in multiple .txt files into R?

Answer 2

这可能不是最好的方法，但它应该做你想做的：

read.and.write.table <- function(files){
    for(fn in files){
        input <- read.table(file = fn, header = TRUE, sep = "\t")
        assign(x = fn, value = input, envir = .GlobalEnv)
    }
}

filelist = list.files(pattern = ".*.txt")  
read.and.write.table(filelist)

将创建以您的 .txt 文件命名的单独全局变量。当然，您可以包含一些字符串操作来美化名称。