R实战-一次性读取多个表格

读入目标文件的名称

fs <- list.files(pattern="*txt$")

将所有内容保存在一个list内

class(fs) <- "list"content <- lapply(fs, function(file) read.delim(file,header = T,sep="\t",quote = "",stringsAsFactors = F))

将不同的表格保存为不同的dataframe

#定义一个文件读取的函数read_file <- function(file){  table <- read.delim(file,header = T,sep="\t",quote = "",stringsAsFactors = F)  return(table)}#读取所有文件for(i in 1:length(fs)){  assign(paste("d",i,sep=""),read_file(fs[i]))}

assign()可以在循环中为变量赋值