如何在R中将一个函数应用于多个excel工作表？

install.packages("readxl")
install.packages("purrr")
library(readxl)
library(purrr)

file_names <- list.files("文件夹路径", pattern = "\\.xlsx$", full.names = TRUE)

data_list <- map(file_names, ~ read_excel(.x, sheet = "工作表名称"))

my_function <- function(data) {
  # 在这里编写你的函数逻辑
  # 例如，计算每个工作表的总和
  sum_data <- colSums(data)
  return(sum_data)
}

result_list <- map(data_list, my_function)

print(result_list)