使用 openxlsx 將多個 describeBy 摘要寫入 Excel 工作簿中的各個工作表

Question

我有一個大型數據框，我使用psych庫中的describeBy以多種方式總結如下：

library(tidyverse)
library(openxlsx)
library(psych)
.
.
.
 # Describe by Region
  lst1 <- describeBy(df[QUESTIONS], df[REGION_DESCRIPTOR])

  # Describe by Doctor
  lst2 <- describeBy(df[QUESTIONS], df[CARE_DESCRIPTOR])

然后我創建一個新工作簿

  wb = createWorkbook()

並開始嘗試將 lst1、lst2、.... 寫入其中，每個工作表一個項目：

  addWorksheet(wb, REGION_DESCRIPTOR)
  writeData(wb, REGION_DESCRIPTOR, lst1)

  addWorksheet(wb, CARE_DESCRIPTOR)
  writeData(wb, CARE_DESCRIPTOR, lst2)

不幸的是，我收到一條錯誤消息：

Error in as.data.frame.default(x, stringsAsFactors = FALSE) : 
  cannot coerce class ‘c("psych", "describeBy")’ to a data.frame

如何使用openxlsx將每個describeBy object 寫入工作表？ 我嘗試過使用writexl ，雖然它有效，但我對它將describeBy生成的每個摘要寫入不同的工作表這一事實不滿意。 由於我有近十幾個describeBy ，每個都有 3-5 個類別，這很快變得笨拙。

預先感謝您的幫助

托馬斯飛利浦

Answer 1

來自describeBy的 object output 是一個list 。 我們可以將它們綁定到單個矩陣或rbind ，它應該可以工作

do.call(rbind, describeBy(mtcars[, 'mpg'], mtcars[, 'vs']) )