【R语言】基础知识 | 为了偷懒，我不择手段！

黑妹的小屋

发布于 2021-01-28 11:27:31

3890

发布于 2021-01-28 11:27:31

文章被收录于专栏：菜鸟学数据分析之R语言

两个以上表格之间的合并

听说上周领导下发了一个通知给10+公司，要求各公司按照下表要求填写表格反馈结果，意味着下周我要汇总10个表格，于是琢磨着怎么样才能偷懒又能按时交差，最重要的是还能有时间玩手机～

#在data文件夹中拥有这10个文件

5个表格特点左右滑动查看更多

另外5个表格特点

5个表格左右滑动查看更多

library(purrr)
library(tidyverse)
library(readxl)
library(writexl)
files = list.files("~/Desktop/微信公众号运营/数据/data/", pattern = "xlsx", full.names = TRUE,recursive = TRUE)
lxl = map_dfr(set_names(files),read_xlsx,.id = "支公司")
write_xlsx(lxl, "按行合并.xlsx")

#运行结果：

如果表格长成“奖励金额.xls"中有10个sheet

要合并成一个表格要怎么做呢？

path = "~/Desktop/微信公众号运营/数据/data/奖励金额.xlsx" # Excel 文件路径 
zlt = map_dfr(set_names(excel_sheets(path)),~ read_xlsx(path, sheet=.x),.id = "sheet")
write_xlsx(zlt, "福州全区奖励金额.xlsx")

#运行结果：