如何在R中编写函数(类似于SAS宏)来导入和格式化Excel文件列表？

install.packages("readxl")
install.packages("tidyverse")

library(readxl)
library(tidyverse)

import_and_format_excel <- function(file_list) {
  data <- tibble()  # 创建一个空的tibble来存储数据
  
  for (file in file_list) {
    # 导入Excel文件
    df <- read_excel(file)
    
    # 格式化数据
    # 这里可以根据需要进行数据处理和清洗
    # 例如，可以使用dplyr包中的函数进行数据整理
    
    # 将处理后的数据添加到tibble中
    data <- bind_rows(data, df)
  }
  
  return(data)
}

file_list <- c("file1.xlsx", "file2.xlsx", "file3.xlsx")
result <- import_and_format_excel(file_list)