使用R軟件，解鎖數(shù)據(jù)讀取新姿勢。

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.批量將文件夾某類文件讀取進來并合并成一個數(shù)據(jù)框，要求數(shù)據(jù)規(guī)整

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

3.批量讀取Excel中多個Sheet工作表合并到一個數(shù)據(jù)框里，同樣要求數(shù)據(jù)規(guī)整。

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.批量寫出全局環(huán)境中的數(shù)據(jù)

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）