如何编写一个R循环来添加多个excel文件，更改它们的列名，然后按一行合并它们？

# 加载必要的库
library(readxl)

# 设置文件路径和输出文件名
file_paths <- list.files(path = "path_to_excel_files", pattern = "\\.xlsx$", full.names = TRUE)
output_file <- "merged_output.xlsx"

# 初始化一个空的数据框用于存储合并后的数据
merged_data <- data.frame()

# 循环读取每个Excel文件
for (file_path in file_paths) {
  # 读取Excel文件
  df <- read_excel(file_path)
  
  # 更改列名（示例：将所有列名改为大写）
  colnames(df) <- toupper(colnames(df))
  
  # 将处理后的数据框添加到合并数据框中
  merged_data <- rbind(merged_data, df)
}

# 将合并后的数据保存到新的Excel文件
write_excel_csv(merged_data, output_file)

# 打印完成信息
cat("合并完成，结果已保存到:", output_file)