使用數據框列表中的名稱重命名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))