「R语言 数据合并」批量读取数据文件合并为一个excel表格
需求分析：
在一个文件夹下里面有很多excel文件，它们字段都一样，这时候需要把他们合并为一个excel表格。
类型1：R语言合并同一个文件夹下的多个csv文件
rm(list = ls())
options(scipen = 200)
#########自定义函数################
readCSV <- function(dir_dta){
file_list <- list.files(path=dir_dta,full.names=T)
varSave_func <- function(x){
table_x <- read.csv(file=x,sep=",",header = T)
}
a<-invisible(lapply(file_list,FUN=varSave_func))
b<-as.data.frame(a[[1]])
for (i in 2:length(a)){
c<-rbind(b,a[[i]])
b <- c
}
return(b)
}
##########调用函数
dir_dta <- "C:/Users/Administrator/Desktop/data"
result <-readCSV(dir_dta)
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
类型2：R语言合并同一个文件夹下的多个.xlsx文件
2.1、对于文件名没有规律的情况
# 设置工作空间
setwd('D:\data file\data2')
# 读取该工作空间下的所有文件名
filenames <- dir()
# 初始化数据框，用于后面的数据合并
data2 <- data.frame()
#通过循环完成数据合并
for (i in filenames){
# 构造数据路径
path <- paste0(getwd(),'\',i)
#res <- c(res,path)
# 读取并合并数据
data2 <- rbind(data2,read_excel(path = path))
}
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
- 11
- 12
- 13
- 14
- 15
2.2、对于文件名没有规律的情况，并且只读取某后缀的文件
(xls,csv,xlsx 后缀都存在，只读取xlsx)
# 设置工作空间
setwd('D:\data file\data3')
# 读取该工作空间下的所有文件名
filenames <- dir()
# 通过正则，获取所有xlsx结尾的文件名
filenames2 <- grep('\.xlsx', filenames, value = TRUE)
# 初始化数据框，用于后面的数据合并
data3 <- data.frame()
#通过循环完成数据合并
for (i in filenames2){
# 构造数据路径
path <- paste0(getwd(),'\',i)
#res <- c(res,path)
# 读取并合并数据
data3 <- rbind(data3,read_excel(path = path))
}
