R语言批量提取excel当中的数据

---

前言

在工作当中，为了方便统计单项数据，经常会遇上同一格式的几百份数据项需要提取到同一个表格的情况，博主非计算机专业，R语言代码不一定规范，但是经验证能使用，故记录下来

---

步骤

代码如下：

##本地运行环境：R for windows 3.6.1

#安装并加载导入数据的包
install.packages("readxl")
library(readxl)
#安装并加载导出数据的包
install.packages("openxlsx")
library(openxlsx)

setwd("C:\\Users\\0\\Desktop\\数据") #设置读取数据路径
path<-"data" #待提取数据所在文件夹
 
mat = matrix(data=c('项目','收款单位','制表时间','金额'), nrow=1) #提取项名称

files <- list.files(path, pattern = "*.xls$", full.names = TRUE)#读取xls文件名 

for(i in 1:length(files)) {
   #读取Excel文件并添加到矩阵当中
   dat<-read_xls(files[[i]],sheet = 1,col_names = F)  
   mat <-rbind(mat,c(dat[4,2],dat[5,2],dat[32,4],dat[10,2]))#dat中的数字为需提取项在表格中的对应的行和列

}
#导出数据至汇总表格当中
data0 = write.xlsx(mat,'汇总.xlsx',colNames =F)

总结

以上就是使用r语言批量提取excel数据的内容，本文待提取的excel文件是xls格式，xlsx等其它文件在导入数据时会有一点点小差别，其它部分基本一样。