r - 使用 pander 和 CrossTable 的列和行百分比表？

Question

我正在尝试使用 knitr 和 pander 生成报告。要在表格中显示行百分比或列百分比，我想使用该CrossTable()函数并摆脱卡方贡献值和表格总数。

这是一个例子：

 ```{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

如何使用panderand生成只有行百分比和列百分比的表格CrossTable？

亲切的问候，马勒

Answer 1

这已在最近提交的开发版本中修复：pander

> 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%            
------------------------------------