将 Excel 电子表格合并为 R 中的一个

Question

我有 4 个单独的 Excel 电子表格，我想将它们统一起来，也就是说，只保留一个。有可能的？事实上，我是这样做的：

library(readxl)

x<-read_excel('C:/Users/Jose/Desktop/Calculation 1.xlsx',sheet = "Calculation 1")
y<-read_excel('C:/Users/Jose/Desktop/Calculation 2.xlsx',sheet = "Calculation 2")
z<-read_excel('C:/Users/Jose/Desktop/Calculation 3.xlsx',sheet = "Calculation 3")
w<-read_excel('C:/Users/Jose/Desktop/Calculation 4.xlsx',sheet = "Calculation 4")

我想将其转换为一个电子表格，这样它将有 4 个选项卡，计算 1、计算 2、计算 3 和计算 4。

Answer 1

你可以试试-

library(readxl)
#Return file path for the file which has "Calculation" in it's name and ends with `xlsx`. 
filenames <- list.files("C:/Users/Jose/Desktop/", pattern = 'Calculation.*\\.xlsx$', full.names = TRUE)

#Read the data in a list
list_data <- lapply(filenames, read_excel)
#Name the list with the filename without extension
names(list_data) <- tools::file_path_sans_ext(basename(filenames))
#Write a new excel file with all the tabs. 
writexl::write_xlsx(list_data, 'Calculation.xlsx')