在R中导入多个文本文件,并从预定列表中分配它们的名称

Question

我刚刚开始使用R而我在执行以下任务时遇到问题:我在工作目录中的单独纯文本文件中有大约130个语言示例.我想做的是使用扫描导入它们并保留它们的文件名.具体来说,我想做的是使用以下内容:

Patient01.txt <-scan("./Patient01.txt", what = "character")
Patient02.txt <-scan("./Patient02.txt", what = "character")
...
Patient130.txt <-scan("./Patient130.txt", what = "character")

有没有办法使用*apply等命令来自动化该过程？

Answer 1

这是自动化过程的一种方法

# read txt files with names of the form Patient*.txt
txt_files = list.files(pattern = 'Patient*.txt');

# read txt files into a list (assuming separator is a comma)
data_list = lapply(txt_files, read.table, sep = ",")

如果你知道它是什么,你可以更改分隔符.将数据保存为数据帧列表很方便,因为它更容易投入向量化操作或稍后循环.