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

17ae02613c61a1ee7561190115b55cec.png

看到一篇文章,

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

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

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

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

在datas文件夹下,有5个Excel数据文件:

3aa1e28360262645142a6ff1c5f1d3de.png

每个文件的数据是这个样子的(列名相同):

34b15f006537d56018378ea782863946.png

基本步骤

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

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

R语言代码

library

运行结果(部分):

f5f2ad5e6647125ce71127f08bddd1a8.png

代码解释

第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

R语言代码

library

运行结果(部分)

f8501c3d8e6ef57040ce29c709e8d891.png

代码解释

第3行:path 存放 Excel 文件路径;

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

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

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

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

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值