如何使用R将多个csv文件编译成单个xlsx文件？

install.packages("readxl")
install.packages("writexl")

library(readxl)
library(writexl)

folder_path <- "path/to/csv/files/"
file_names <- c("file1.csv", "file2.csv", "file3.csv")

combined_data <- data.frame()

for (file_name in file_names) {
  file_path <- paste0(folder_path, file_name)
  data <- read.csv(file_path)
  combined_data <- rbind(combined_data, data)
}

output_file <- "output.xlsx"
write_xlsx(combined_data, output_file)