R_ftable関数の出力からラベルを取り出す - RとLinuxと...

RとLinuxと...


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  )
 
Link: Rの備忘録(1794d)
Last-modified: 2008-03-12 (水) 10:40:02 (3901d)