トップ
新規
一覧
単語検索
最終更新
ヘルプ
ログイン
アールメカブ
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[...
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...
終了行:
[[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[...
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...
ページ名: