- 追加された行はこの色です。
- 削除された行はこの色です。
[[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 )