R语言求助：如何用数据框列表名称命名Excel工作表？

嘿，这个问题我之前也踩过坑！你现在的问题核心出在sheetName = x这一行——这里的x是你列表里的数据框本身，不是列表中对应数据框的名称，所以write.xlsx2没办法识别出你想要的自定义工作表名，只能默认生成Sheet0、Sheet1这类序列命名。

给你两种修改方案，按需选择：

方案一：用基础R的lapply实现 #

我们可以遍历列表的名称向量，而不是直接遍历数据框列表，这样就能拿到每个数据框对应的名称：

lapply(names(final_data), function(name) {
  write.xlsx2(final_data[[name]], 
              file = "Final.xlsx", 
              sheetName = name,  # 这里用列表的名称作为工作表名
              append = TRUE, 
              row.names = FALSE)
})

简单解释：

• names(final_data)会返回你列表里所有数据框的名称组成的向量
• 每次迭代时，name就是当前数据框的名称，final_data[[name]]则取出对应的数据框
• 这样sheetName就会正确设置为你列表里的原始名称了

方案二：用purrr包的imap函数（更简洁直观） #

如果你已经安装了purrr包（tidyverse系列的工具包，处理列表非常方便），可以用imap函数，它会同时传递列表的元素和对应的名称：

library(purrr)
imap(final_data, function(data, name) {
  write.xlsx2(data, 
              file = "Final.xlsx", 
              sheetName = name, 
              append = TRUE, 
              row.names = FALSE)
})

这里data对应列表中的每个数据框，name就是它的原始名称，逻辑更清晰，代码也更简洁。

另外小提醒：如果你的Final.xlsx文件一开始不存在，第一次写入时把append = TRUE改成append = FALSE也可以，不过append = TRUE在文件不存在时也会自动创建，影响不大。

内容的提问来源于stack exchange，提问作者InvadersMustDie