关于R批量导入excel的方法

前言

同在德勤笔试的时候发现这个需求，之前处理数据的时候也遇到过，感觉是很实用的技能，特别研究一下码上来。
网页上简单搜索批量导入excel的方法，目前找到的只有这个链接：
https://www.cnblogs.com/lzllovesyl/p/5170032.html
文章分为三个部分：
1.链接中源代码，读取文件夹下所有子文件夹中的excel文件，并根据分类合并
2.稍加改动后的源代码，读取文件夹下所有子文件夹中的excel文件，切片后汇总
3.进一步改动，读取某文件夹下的所有子文件夹中的excel文件，切片后汇总

---

1.链接中源代码

作用：读取每个文件夹下的excel，并将其合并成一个文件。

rm(list=ls())                                          #清空工作历史的所有变量
setwd("E:/cnblogs")                                    #设定工作目录【修改】

library(xlsx)

first_category_name = list.files("APP整理")            #list.files命令得到"APP整理”文件夹下所有文件夹的名称【修改】
dir = paste("./APP整理/",first_category_name,sep="")   #用paste命令构建路径变量dir,第一级目录的详细路径【修改】
n = length(dir)