アールメカブ

• 追加された行はこの色です。
• 削除された行はこの色です。
• R_ftable関数の出力からラベルを取り出す へ行く。
• R_ftable関数の出力からラベルを取り出す の差分を削除

[[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  )