能用就行
setwd("/home/user/myh/raw_data/patien_AML_bulk_rnaseq/inputs")
file_name <- list.files("/home/user/myh/raw_data/patien_AML_bulk_rnaseq/inputs")##使用list.files得到“inputs”文件夹的所有文件夹的名称
dir <- paste("/home/user/myh/raw_data/patien_AML_bulk_rnaseq/inputs/",file_name,sep = "") #用paste命令构建路径变量dir
n <- length(dir)
for (i in 1:33){
file <- str_split(dir[i], pattern = "/")[[1]][8]
name <- str_sub(file, start = 1, end = -5)
assign(name, read.table(file = dir[i], header=T))
}
网友评论