用for循环来做吧，如果你是要每个文件一个变量的话。
filename <- list.files()
for (i in 1:length(filename)){
    var_name <- gsub('.txt','',filename[i])
    assign(var_name,read.table(filename[i],sep=',',header=TRUE)
}
如果你想批量放进一个list里面，
直接用
data_list <- lapply(filename,read.table,sep=',',header=TRUE)

文件夹内数据如图，我只想提取txt文件
代码略有修改，不过这个只能读取到plot points.R， 不知道为什么会读取plot points.R，难道不应该说仅仅提取txt后缀的文件么？而且实际上xml文件也读取了，不知道为什么

请问如何能够完整的提取所有的txt文件呢，而且不要掺杂其他文件

要在list.files里面添加pattern = '.txt'才会只读txt的文件