使用R軟件庆杜，解鎖數(shù)據(jù)讀取新姿勢(shì)蔚舀。
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.批量將文件夾某類文件讀取進(jìn)來(lái)并合并成一個(gè)數(shù)據(jù)框卖宠，要求數(shù)據(jù)規(guī)整
file <- list.files(pattern = ".csv")#正則表達(dá)式匹配文件后綴
names(file) <- files
data <- lapply(file, fread)
data0 <- do.call(rbind,data)
3.批量讀取Excel中多個(gè)Sheet工作表合并到一個(gè)數(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.批量寫(xiě)出全局環(huán)境中的數(shù)據(jù)
for (i in 1:length(ls()))
{write.csv(eval(parse(text = ls(pattern = " ")[i])),
paste0(),na="",row.names=F)# paste0()定義文件名
}
課程分享
生信技能樹(shù)全球公益巡講
（https://mp.weixin.qq.com/s/E9ykuIbc-2Ja9HOY0bn_6g）
B站公益74小時(shí)生信工程師教學(xué)視頻合輯
（https://mp.weixin.qq.com/s/IyFK7l_WBAiUgqQi8O7Hxw）
招學(xué)徒：
（https://mp.weixin.qq.com/s/KgbilzXnFjbKKunuw7NVfw）
