R×knitr きれいな多重クロス集計をPDFで出力する方法

knitrパッケージのkable関数を使えば、matrixやdata.frameなどの表形式をきれいに出力してくれるが、ftable関数を用いた多重クロス集計の結果は、kable関数を使うことができません。

これは非常に残念なので、他の方法できれいに出力する方法をお伝えします。ちなみにこの方法ではPDF出力のみの対応となるので注意してください。

手順を簡単に説明すると、多重クロス集計の部分だけをTexに変換して直接出力するというやり方です。

まず準備として、ftable関数の結果をTexに変換するための関数をもつパッケージsimsalaparをインストールします。

install.packages('simsalapar')

実際のコードの書き方は、以下のコードを見てください。simsalaparパッケージのtoLatex関数でTex形式に変換しています。

注意点としては、まず、最初のheader-includesでbooktabsを呼び出しておく必要があります。これは、toLatex関数で変換された表に罫線topruleなどが含まれるからです。
次に、チャンク内の「result=’asis’」です。これは、このチャンク内で囲まれた部分の出力をそのまま渡すことを指定しています。

---
title: "Sample"
header-includes:
   - \usepackage{booktabs}
output: 
    pdf_document:
        latex_engine: xelatex
---

```{r}
ft <- ftable(Titanic, row.vars = c(1, 2))

ft
```

```{r, results='asis'}
library(simsalapar)
toLatex(ft)
```