スタック形式のデータフレームから個人データを復元する方法

（参考）http://133.100.216.71/R_analysis/data_crosstable10.html


# 使用データ読み込み
dat <- read.csv("http://mizumot.com/handbook/wp-content/uploads/G.csv",header=T, fileEncoding="CP932")

# 変数名変更
colnames(dat) <- c("subj","judge","item","value")

# 個人データのスタック形式に変更
x <- data.frame(lapply (dat, function(i) rep(i, dat[,"value"]))[-4])
#  データ構造の確認
str(x)

# ftable関数を使って
ftable(x$subj, x$judge, x$item)