エクセルのピボットテーブルはエクセルを使う理由として最後まで残る便利な機能だ。Rにもその機能がないわけではないが使いにくい。しかし監査ではクロス集計はしばしば必要となる。
xtabs(~項目１+項目２, data=data.frame.object)
とすれば、項目１を縦軸、項目２を横軸としたデータの件数を集計できる。
さらに、件数ではなく金額をクロス集計したい場合には、
xtabs(金額項目~項目１+項目２, data=data.frame.object)
とする。
両者とも、結果をオブジェクトに放り込み、addmargins()で囲んでやると、合計欄が表示される。
addmargins(result.object)
同じくクロス集計を行うのに、table()関数がある。
監査で用いるには一つ欠点があり、xtabs()関数はモデル式の中に金額変数を埋め込むことができるが、tabls()関数は､変数に数値型を持ってくることができず、集計されるのは「件数」だけである。
[データ要約]