将列表中的数据框导出为Excel文件中的工作表 [英] Export dataframes in list as worksheets in Excel file

问题描述

样本数据

  var1<  -  list（'2003'= 1：3，'2004'= c（4：3），'2005'= c 6,4,1），'2006'= 1：4）
  

不成功的代码：

 库（XLConnect）
 wb<  -  loadWorkbook（var1.xlsx create = TRUE）
 wb<  -  lapply（var1，function（x）{createSheet（wb，name = x）}）
 saveWorkbook（wb）
  

解决方案

@ Andrie的答案更简洁的版本，因为XLConnect API被矢量化：

  wb<  -  loadWorkbook（var1.xlsx，create = TRUE）
 createSheet（wb，names（var1））
 writeWorksheet（wb，var1，names（var1），header = FALSE）
 saveWorkbook（wb）
  

Should be a simple task, but I'm so far unable to find how.

Sample data:

var1 <- list('2003' = 1:3, '2004' = c(4:3), '2005' = c(6,4,1), '2006' = 1:4 )

Unsuccessful code:

library("XLConnect")
wb <- loadWorkbook("var1.xlsx", create = TRUE)
wb <- lapply(var1, function(x) {createSheet(wb, name = x)})
saveWorkbook(wb)

解决方案

A more concise version of @Andrie's answer, since the XLConnect API is vectorized:

wb <- loadWorkbook("var1.xlsx", create = TRUE)
createSheet(wb, names(var1))
writeWorksheet(wb, var1, names(var1),header=FALSE)
saveWorkbook(wb)

这篇关于将列表中的数据框导出为Excel文件中的工作表的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！