R {{category R}} !!! xtabs() 分割表の作成 xtabs(~ 見出し + 見出し, データフレーム) {{pre data(cars) cars.head <- head(cars, 20) xtabs(~ speed + dist, cars.head) dist speed 2 4 10 14 16 17 18 20 22 24 26 28 34 46 4 1 0 1 0 0 0 0 0 0 0 0 0 0 0 7 0 1 0 0 0 0 0 0 1 0 0 0 0 0 8 0 0 0 0 1 0 0 0 0 0 0 0 0 0 9 0 0 1 0 0 0 0 0 0 0 0 0 0 0 10 0 0 0 0 0 0 1 0 0 0 1 0 1 0 11 0 0 0 0 0 1 0 0 0 0 0 1 0 0 12 0 0 0 1 0 0 0 1 0 1 0 1 0 0 13 0 0 0 0 0 0 0 0 0 0 1 0 2 1 14 0 0 0 0 0 0 0 0 0 0 1 0 0 0 }} {{ref_image cars.head.png}} !その後 ftable(結果) mosaic(結果) !Reference https://www1.doshisha.ac.jp/~mjin/R/Chap_45/45.html