【R语言】批量合并Excel文件，并增加文件来源列

基本步骤：

1. 获取各个文件的完整路径

2. 批量读取+按行合并+增加数据来源列

R语言代码：

library(purrr)
library(readxl)

files = list.files("datas/", pattern = "xlsx", full.names = TRUE)
df = map_dfr(set_names(files), read_xlsx, .id = "文件来源") 

writexl::write_xlsx(df, "学生成绩.xlsx")

运行结果（部分）：
代码解释：

第1行：加载 purrr 包，用其中强大的循环技术；

第2行：加载 readxl 包，以读取 Excel数据；

第3行：获取 “data” 路径下所有 xlsx 文件的完整（相对）路径，得到所有文件路径构成的字符向量；

第4行：将读取 Excel 数据的 read_xlsx() 函数，应用到前面获取的每个路径，即实现批量读取；同时 map_dfr() 带后缀 _dfr 就是指明了映射之后返回按行合并的数据框；set_names() 是将文件路径字符向量创建为命名向量，再结合参数 .id 将路径值作为数据来源列；

第5行：将合并后的数据，写出到 Excel 文件，writexl:: 是包名前缀，节省一行代码。也可以用 openxlsx 包，读写函数都有。

注1：list.files() 函数带 recursive 参数，若设置为 TRUE，则 Excel 数据文件，嵌套在多个文件夹中也没问题。

注2：如果是操作 xls 文件，改用 read_xls() 函数即可；如果是 操作 csv 文件，改用 readr::read_csv() 函数即可。

如果 Excel 数据是在一个 xlsx 文件的多个 sheet，怎么办呢？
R语言代码：

library(purrr)
library(readxl)

path = "原始学生成绩.xlsx"
df <- map_dfr(set_names(excel_sheets(path)), 
              ~ read_xlsx(path, sheet = .), .id = "sheet")  
writexl::write_xlsx(df, "学生成绩.xlsx")  

代码解释：

第3行：path 存放 Excel 文件路径；

第4-5行：excel_sheets() 函数作用在该 Excel 文件上，提取各个 sheet名字，得到字符向量；然后同样是实现批量读取，只是这次是在 sheet 名字的字符向量上循环而已。

注：6行代码，实际上是函数有点长写成2行，另外，这次是用 sheet 列来存放数据是来源自哪个 sheet.