一种方法是使用循环。这是一个可重现的示例，其中数据的命名范围与数据和工作表名称相同：

library(openxlsx)

list_of_datasets <- list("MARCO" = mtcars, "LUCA" = iris, "GIACOMO" = anscombe)

# create a workbook

wb <- createWorkbook()

for(i in seq_along(list_of_datasets)){

  #create worksheets for each data set
  addWorksheet(wb, names(list_of_datasets)[i])
  
  #write and name data for each worksheet
  writeData(wb, 
            sheet = names(list_of_datasets)[i],
            x = list_of_datasets[[i]], 
            name = names(list_of_datasets)[i])  
  
}



saveWorkbook(wb, "example.xlsx", overwrite = TRUE)

@Peter提出的另一种方法是使用purrr::iwalk()。首先，您捕获函数中的步骤：

add_new_data <- function(dataset, name) {
  #create worksheets for each data set
  addWorksheet(wb, name)
  
  #write and name data for each worksheet
  writeData(wb, 
            sheet = name,
            x = dataset, 
            name = name)  
}

然后运行以下命令：

library(openxlsx)

list_of_datasets <- list("MARCO" = mtcars, "LUCA" = iris, "GIACOMO" = anscombe)

wb <- createWorkbook()

使用iwalk()遍历每个对象：

purrr::iwalk(list_of_datasets, add_new_data)