![](/img/trans.png)
[英]How to compile multiple csv files into a single xlsx file using R?
[英]How to combine all xlsx files in a directory into a single xlsx file using R?
我有一个包含三个 xlsx 文件的目录:
my_path <- c('Path/To/My/Stuff')
每个文件都有这样的名称: my-file_1.xlsx
、 my-file_2.xlsx
、 my-file_3.xlsx
我想将这三个文件合并到一个新的 xlsx 工作簿中,其中每个工作表都包含这些独立文件之一的所有数据,并且也以独立文件命名(但只有file_N
结尾部分。
例如,主工作簿将被称为my-complete-workbook.xlsx
并且它将具有三个选项卡: file_1
、 file_2
、 file_3
。
在 R 中实现此目的的最佳方法是什么,最好使用openxlsx
库?
你可以试试这个代码 -
library(openxlsx)
# Get list of files with .xlsx extension in current directory
filenames <- list.files(my_path, pattern = '\\.xlsx$', full.names = TRUE)
# Read all files
list_data <- lapply(filenames, read.xlsx)
# Assign correct names to list
names(list_data) <- tools::file_path_sans_ext(basename(filenames))
# Write sheets
write.xlsx(list_data, 'file.xlsx')
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.