具有多个因子级别的Openxlsx表

Question

我正在尝试制作一个脚本，以使抓取和查看描述性信息和统计信息对于我当前和将来的所有研究项目都尽可能地容易。到目前为止，Openxlsx一直在发挥作用，但我在当前的脚本中遇到了一个严重缺陷：我使用R聚合命令在R中创建的任何表都具有一个以上的因子水平（例如Race；包含“ White”，“ Black”， “亚洲”，“其他”仅显示R中的所有级别。使用Openxlsx将表导出到excel后，表中仅第一个因子级别显示为“ x”，而其他因子级别则缺失。

有什么方法可以将通过aggregate命令创建的表导出到excel，从而显示所有因子的水平？我不确定R为什么会显示所有级别，而excel无法显示所有级别。

Picture of excel output

我的脚本在这里（问题2是问题所在）：

pubdata=read.csv("pubdatarecoded.csv",header=TRUE)
library(psych)
library(openxlsx)
str(pubdata)
wb <- createWorkbook("doesnotmatter")

分析1：整个数据帧的描述性统计表

DescriptivesTable=describe(pubdata)
addWorksheet(wb, "DescriptiveStats")
writeData(wb, "DescriptiveStats", DescriptivesTable, startCol = 1, startRow = 1, rowNames = TRUE)

分析2：检查所有情况下的受众特征

addWorksheet(wb,"DemographicLoadings")
DemoLoadingsCheckTable=aggregate(pubdata$Race,by=list(pubdata$Guilt,pubdata$Discount,pubdata$TP),FUN=summary.factor)
writeData(wb, "DemographicLoadings", DemoLoadingsCheckTable, startCol = 1, startRow = 1, rowNames = FALSE)