批量读取

fs = dir("GSExxx_RAW/")#列出一个文件夹下的所有文件
re = list() #生成一个空列表re，每一轮for循环会向re中添加一个元素

for(i in 1:length(fs)){
  re[[i]] = read.delim(paste0("GSExxx_RAW/",fs[i]),row.names = 1)
}
re2 = do.call(cbind,re) #把re的所有元素cbind到一起

re = lapply(fs, function(f){
      read.delim(paste0("GSExxx_RAW/",f),row.names = 1)
})
re2 = do.call(cbind,re) #把re的所有元素cbind到一起