使用R软件，解锁数据读取新姿势。

1.批量读取文件夹里面某类文件

library(data.table)

file_names<- list.files(pattern = ".csv")
for (i in 1:length(file_names)) { 
  name<-gsub(".csv","",file_names[i])
  assign(name,fread(file_names[i])
}

2.批量将文件夹某类文件读取进来并合并成一个数据框，要求数据规整

file <- list.files(pattern = ".csv")#正则表达式匹配文件后缀
names(file) <- files
data <- lapply(file, fread)
data0 <- do.call(rbind,data)

3.批量读取Excel中多个Sheet工作表合并到一个数据框里，同样要求数据规整。

install.packages("openxlsx")  
library(openxlsx)
aa <-NA
pb <- txtProgressBar(min = 0, max =2, style = 3)
for (i in 1:2){ 
mydata<-read.xlsx("###.xlsx", sheet = i, startRow = 1, colNames = T,
                  rowNames = FALSE, detectDates = FALSE, skipEmptyRows = TRUE,
                  skipEmptyCols = TRUE, rows = NULL, cols = NULL, check.names = FALSE,
                  namedRegion = NULL, na.strings = "NA", fillMergedCells = FALSE)   
aa <- rbind(aa,mydata)  
setTxtProgressBar(pb,i)
}

4.批量写出全局环境中的数据

for (i in 1:length(ls()))
 {write.csv(eval(parse(text = ls(pattern = " ")[i])),
                  paste0(),na="",row.names=F)# paste0()定义文件名  
}

课程分享
生信技能树全球公益巡讲
（https://mp.weixin.qq.com/s/E9ykuIbc-2Ja9HOY0bn_6g）
B站公益74小时生信工程师教学视频合辑
（https://mp.weixin.qq.com/s/IyFK7l_WBAiUgqQi8O7Hxw）
招学徒：
（https://mp.weixin.qq.com/s/KgbilzXnFjbKKunuw7NVfw）