使用r將多個數據幀導出到一個Excel工作表

Question

我在r中有大約30個不同的數據框，我希望它們在一個Excel工作表中，同樣具有數據框名稱。

對於輸出我正在尋找這樣的東西：

dfname1
col1    col2
  x        x
  x        x
dfname2
col1    col3
  x        x

我應該如何做這個迭代過程？

Answer 1

將數據框架名稱與數據放在同一工作表中聽起來是個壞主意，但這取決於您。

無論如何，使用openxlsx 。 這是一種方法：

dfname1 <- data.frame(col1 = c("x", "x"), col2 = c("x", "x"), stringsAsFactors = FALSE)
dfname2 <- data.frame(col1 = c("x"), col3 = c("x"), stringsAsFactors = FALSE)

df_list <- list(dfname1=dfname1,
                dfname2=dfname2)

library(openxlsx)

wb <- createWorkbook()
addWorksheet(wb, "Foo")

curr_row <- 1
for(i in seq_along(df_list)) {
  writeData(wb, "Foo", names(df_list)[i], startCol = 1, startRow = curr_row)
  writeData(wb, "Foo", df_list[[i]], startCol = 1, startRow = curr_row+1)
  curr_row <- curr_row + nrow(df_list[[i]]) + 2
}

saveWorkbook(wb, "bar.xlsx")

這給你（字面意思）你所要求的。