使用数据框列表中的名称重命名Excel选项卡名称

Question

我对R很陌生，需要一些建议。

我已经使用xlsx包中的以下代码将数据帧final_data的列表导出到excel中：

lapply(final_data,function(x){
  write.xlsx2(x,file = "Final.xlsx",sheetName = x,append = TRUE, row.names = FALSE)
})

但是，我的工作表名称不能反映原始列表中相应数据框的名称。 而是，工作表名称变为“ Sheet0”，“ Sheet1”，“ Sheet2”等。是否需要将某些内容更改为上述代码？ 将不胜感激任何建议。 谢谢！

Answer 1

使用lappy ，会丢失每个元素名称的信息。 因此，您可以先保留此信息，然后再遍历数据和名称。

library(tidyverse) 
library(xlsx)
name = names(final_data)
map2(final_data, 
     name, 
     ~write.xlsx2(.x, file = "Final.xlsx",
                  sheetName = .y, append = TRUE, 
                  row.names = FALSE))