基本步骤:
-
获取各个文件的完整路径
-
批量读取+按行合并+增加数据来源列
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.