在r中寫一個列表到excel文件

Question

我有一個包含5個不同長度的數據幀的列表。我想在同一張Excel表格中寫入這些數據框。

我已經嘗試使用WriteXLS()和write.xlsx()，但無法獲得所需的結果。

Answer 1

在此處，xlsx包函數用來寫在相同的片材5個不同的表的一個示例：

library(xlsx) 

### create a sample list 
set.seed(123) 
theList <- list() 

theList$df1 <- data.frame(a=1:5,b=sample(c('X','Y','Z'),5,T)) 
theList$df2 <- data.frame(a=1:3,b=sample(c('X','Y','Z'),3,T),c=sample(c('A','B','C'),3,T)) 
theList$df3 <- data.frame(answer=42) 
theList$df4 <- data.frame(x=1:2,y=sample(c('I','J','K'),2,T),z='M') 
theList$df5 <- data.frame(m=1.2345,n='foo') 
### 


wb <- createWorkbook() 
sheet <- createSheet(wb,"SheetNameHere") 

currRow <- 1 
for(i in 1:length(theList)){ 

    cs <- CellStyle(wb) + Font(wb, isBold=TRUE) + Border(position=c("BOTTOM", "LEFT", "TOP", "RIGHT")) 

    addDataFrame(theList[[i]], 
       sheet=sheet, 
       startRow=currRow, 
       row.names=FALSE, 
       colnamesStyle=cs) 

    currRow <- currRow + nrow(theList[[i]]) + 2 
} 

saveWorkbook(wb,file = "myXlsx.xlsx") 

結果：