2012-09-04 46 views
2

應該是一個簡單的任務,但我至今無法找到如何。將列表中的數據框導出爲Excel文件中的工作表

的樣本數據:

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

不成功代碼:

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

請指定輸出你在期待。你永遠不會寫任何數據,這將使用writeWorksheet或writeNamedRegion調用。 – themel

+0

我期望看到名稱爲「2003」,「2004」,「2005」,「2006」的工作表。 '2003'中的列A應該具有A1 = 1,A2 = 2,A3 = 3; '2004'應該有A1 ='4',A2 ='3';等等。但你是對的,我忽略了寫作。將研究它。 – dmvianna

回答

8

A的@ Andrie的回答更加簡潔的版本,因爲XLConnect API被矢量:

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

+1關於矢量化的高級技巧 – Andrie

相關問題