r - パンダーとクロステーブルを使用した列と行のパーセンテージを持つテーブル?

Question

Knitr と pander を使用してレポートを生成しようとしています。テーブルに行または列のパーセンテージを表示するには、CrossTable()関数を使用して、カイ 2 乗の寄与とテーブルの合計の値を取り除きたいと思います。

次に例を示します。

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