Question

数据科学和R编码专家，

我正在使用papaja软件包（用于创建APA输出的R Markdown模板）。我的目标是使用papaja::apa_table()函数创建APA格式的表。我的数据包括2个因素。我用mtcars数据集创建了一个示例，代码junck来自 papaja .rmd文件如下所示。

我的问题是：如何从Crosstable的输出中获取一个tidyverse表（或apa_table函数的任何其他可接受形式）

# Results
# library(expss)
library(gmodels)
data(mtcars)
a <- factor(mtcars$am, labels = c("automatic","manual"))
v <- factor(mtcars$vs, labels = c("V-Shaped","Straight"))
spread(a,v)
ct <- CrossTable(a,v,expected = F, format = "SPSS", prop.t=F, prop.c = T,dnn = c("Transmission","Engine"))
# papaja::apa_table(ct)

输出但是，当我在控制台中输入ct时，它将返回Null（Empty）

             | Engine 
Transmission | V-Shaped  | Straight  | Row Total | 
-------------|-----------|-----------|-----------|
   automatic |       12  |        7  |       19  | 
             |    0.161  |    0.207  |           | 
             |   63.158% |   36.842% |   59.375% | 
             |   66.667% |   50.000% |           | 
-------------|-----------|-----------|-----------|
      manual |        6  |        7  |       13  | 
             |    0.236  |    0.303  |           | 
             |   46.154% |   53.846% |   40.625% | 
             |   33.333% |   50.000% |           | 
-------------|-----------|-----------|-----------|
Column Total |       18  |       14  |       32  | 
             |   56.250% |   43.750% |           | 
-------------|-----------|-----------|-----------|

到目前为止，我已经尝试过：

致电table()，这给了我一张桌子，但缺少所需的比例

R：如何将CrossTable转换为Tidyverse Table

0 个答案: