*disclaimer
639434
xtabs() 分割表の作成
xtabs(~ 見出し + 見出し, データフレーム)
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
その後
ftable(結果)
mosaic(結果)
https://sugiura-ken.org/wiki/