如何使用 R 將目錄中的所有 xlsx 文件組合成單個 xlsx 文件？

Question

我有一個包含三個 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庫？

Answer 1

你可以試試這個代碼 -

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')