R: Как преобразовать CrossTable в таблицу Tidyverse

Question

Привет, специалист по данным и R-кодерам,

Я использую пакет papaja (шаблон R Markdown для создания вывода APA). Моя цель - создать таблицу в формате APA, используя функцию papaja :: apa_table () . Мои данные состоят из 2 факторов. Я создал пример с набором данных mtcars, кодом junck из папайя .rmd файл представлен ниже.

Мой вопрос: как я могу получить таблицу переходов (или любую другую принятую форму для функции apa_table) из вывода Crosstable

# 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 (Пусто)

             | 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 () , который дает мне стол, но не имеет требуемых пропорций