excel处置4000行数据卡_【R语言】5行代码批量合并Excel文件，并增加文件来源列...

看到一篇文章，

裴帅帅：Python使用9行代码批量合并Excel文件​zhuanlan.zhihu.com

咱们R语言也不能落后啊，5行代码批量合并Excel文件，再多做一步：增加文件来源列。

说是5行代码，其实核心代码只有2行。

另外，本篇和上一篇文章可以说很重复，区分一下话本篇不涉及数据连接，且更适合直接拿来使用，还增加了数据来源列。

在datas文件夹下，有5个Excel数据文件：

每个文件的数据是这个样子的（列名相同）：

基本步骤：

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

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

R语言代码：

library

运行结果（部分）：

代码解释：

第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

运行结果（部分）：

代码解释：

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

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

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

————————————————

原创作品，欢迎转载，但请注明作者及出处。