アールメカブ

Rの備忘録

ラベルを取り出して，行と列の名前につけ直すには，例えば，以下のように実行

dat1.t1 <-ftable(xtabs(~ E1W2 + Sex + Q3A3 + gobi,
   data = dat1))
lab <- NULL
for(x in 1:length( attr(dat1.t1, "row.vars")$E1W2)){
 for(y in 1:length( attr(dat1.t1, "row.vars")$Sex)){
   for(z in 1:length( attr(dat1.t1, "row.vars")$Q3A3)){
     lab <- c(lab, paste(attr(dat1.t1, "row.vars")$E1W2[x],  
               attr(dat1.t1, "row.vars")$Sex[y], 
               attr(dat1.t1, "row.vars")$Q3A3[z], sep = ""))
   }
 }
}
length(lab)# 20
nrow(dat1.t1)
length( attr(dat1.t1, "col.vars"))
dimnames(dat1.t1) <- list(lab,   attr(dat1.t1, "col.vars")$gobi  )