![17ae02613c61a1ee7561190115b55cec.png](https://i-blog.csdnimg.cn/blog_migrate/0075ca0e1a8f70adfc36515ec9c90a99.jpeg)
看到一篇文章,
裴帅帅:Python使用9行代码批量合并Excel文件zhuanlan.zhihu.com咱们R语言也不能落后啊,5行代码批量合并Excel文件,再多做一步:增加文件来源列。
说是5行代码,其实核心代码只有2行。
另外,本篇和上一篇文章可以说很重复,区分一下话本篇不涉及数据连接,且更适合直接拿来使用,还增加了数据来源列。
在datas文件夹下,有5个Excel数据文件:
![3aa1e28360262645142a6ff1c5f1d3de.png](https://i-blog.csdnimg.cn/blog_migrate/09a653a9d00ce278879351352866578b.png)
每个文件的数据是这个样子的(列名相同):
![34b15f006537d56018378ea782863946.png](https://i-blog.csdnimg.cn/blog_migrate/2310bb1e45b3715e2d06858b230ced10.jpeg)
基本步骤:
1. 获取各个文件的完整路径
2. 批量读取+按行合并+增加数据来源列
R语言代码:
library
运行结果(部分):
![f5f2ad5e6647125ce71127f08bddd1a8.png](https://i-blog.csdnimg.cn/blog_migrate/e242b65dc71dc8cabe788a1abe957f06.jpeg)
代码解释:
第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,怎么办呢?
还是上面的数据,这次是这个样子的:
![6b06edce4ea7df89a7eb0a4819541ab6.png](https://i-blog.csdnimg.cn/blog_migrate/176a8c5043f90b3a8dcb1d2027b9b96a.jpeg)
R语言代码:
library
运行结果(部分):
![f8501c3d8e6ef57040ce29c709e8d891.png](https://i-blog.csdnimg.cn/blog_migrate/c7bbe3552de7d1dc17d846bfc22e9548.jpeg)
代码解释:
第3行:path 存放 Excel 文件路径;
第4-5行:excel_sheets() 函数作用在该 Excel 文件上,提取各个 sheet名字,得到字符向量;然后同样是实现批量读取,只是这次是在 sheet 名字的字符向量上循环而已。
注:6行代码,实际上是函数有点长写成2行,另外,这次是用 sheet 列来存放数据是来源自哪个 sheet.
————————————————
原创作品,欢迎转载,但请注明作者及出处。