Таблицы с процентами столбцов и строк с использованием pander и CrossTable?

Question

Я пытаюсь сгенерировать отчеты с knitr и pander. Чтобы отображать процент строк или столбцов в таблице, я хотел бы использовать функцию CrossTable() и избавиться от значений вклада Chi-square и общей суммы таблицы.

Вот пример:

```{r} 
x <- c(1,1,2,2) 

y <- c(1,2,1,2) 

CrossTable(x, y, prop.chisq=FALSE, prop.t = FALSE) 

работает довольно хорошо, но

pander(descr::CrossTable(x, y, prop.chisq=FALSE, prop.t = FALSE), split.table = Inf) 
    ``` 

приводит к сообщению об ошибке:

Quitting from lines 45-78 (test.Rmd) Fehler in apply(x$prop.tbl, c(1, 2), to.percent): dim(X) must have a positive length Calls: ... eval -> eval -> pander -> pander.CrossTable -> apply 

Как я могу создать таблицу только row- и столбцов с использованием pander и CrossTable?

С наилучшими пожеланиями, Maller

Answer 1

Это было исправлено в development version из pander с recent commit:

> pander(descr::CrossTable(x, y, prop.chisq=FALSE, prop.t = FALSE), split.table = Inf) 

------------------------------------ 
   1  2  Total 
--------- -------- -------- -------- 
**1**\  \  \  \ 
    N\  1\  1\  2\  
Row(%)\ 50%\  50%\  50% 
Column(%) 50%  50%    

**2**\  \  \  \ 
    N\  1\  1\  2\  
Row(%)\ 50%\  50%\  50% 
Column(%) 50%  50%    

    Total  2\  2\  4\ 
      50%  50%    
------------------------------------