Question

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

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

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

但是，我的工作表名称未反映原始列表中相应数据框的名称。相反，工作表名称变为＆＃34; Sheet0＆＃34;，＆＃34; Sheet1＆＃34;，＆＃34; Sheet2＆＃34;有什么需要改变成上面的代码吗？非常感谢任何建议。谢谢！

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))

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

1 个答案: