如何关联？

数据框a为
sex bq
1     1
1     2
2     1
2     2
1     2
1     2

数据框b为
variable value label
sex          1      M
sex          2      F
bq           1      A
bq           2      B
bq           3      C

根据数据框a和b
得到数据框c，结果为
        bq
sex   A  B  C
M      1  3  0
F       1  1  0

a <- data.frame(sex=c(1,1,2,2,1,1), bq=c(1,2,1,2,2,2))
b <- data.frame(variable=c("sex","sex","bq","bq","bq"), value=c(1,2,1,2,3), label=c("M","F","A","B","C"), stringsAsFactors=FALSE)

vars <- colnames(a)
for (i in 1:length(vars)) {
    labs <- b[b$variable==vars[i], ]
    n <- nrow(labs)
    for (j in 1:n) {
        a[a[, vars[i]] == labs$value[j], vars[i]] <- labs$label[j]
    }
    a[, vars[i]] <- factor(a[, vars[i]])
    levels(a[, vars[i]]) <- c(labs$label)
}

数据框c是怎么得来的（从a和b）？

qoiqpwqr 发表于 2012-10-11 04:12
数据框c是怎么得来的（从a和b）？

是的。

通过数据框b对数据框a进行关联得到新的数据框，然后用table 应该就可以得到数据框c

a <- data.frame(sex=c(1,1,2,2,1,1), bq=c(1,2,1,2,2,2))
a$sex <- factor(a$sex)
levels(a$sex) <- c("M", "F")
a$bq <- factor(a$bq)
levels(a$bq) <- c("A", "B", "C")
table(a)

qoiqpwqr 发表于 2012-10-11 19:36
a <- data.frame(sex=c(1,1,2,2,1,1), bq=c(1,2,1,2,2,2))
a$sex <- factor(a$sex)
levels(a$sex) <- c("M", "F")
a$bq <- factor(a$bq)
levels(a$bq) <- c("A", "B", "C")
table(a)

谢谢！
关键问题是如何从数据框b中提取相关信息对数据框a中的变量进行levels

a <- data.frame(sex=c(1,1,2,2,1,1), bq=c(1,2,1,2,2,2))
a$sex <- factor(a$sex)    # 向量转换因子
levels(a$sex) <- c("M", "F")  # 数值型因子 转换 字符型因子
a$bq <- factor(a$bq)
levels(a$bq) <-c("A", "B", "C")
xtabs (~ sex + bq, data= a)   # a 是sex和bq的对应关系， b 是 sex 和 bq 对于数值和字符两种描述

jmpamao 发表于 2012-10-11 22:48
a <- data.frame(sex=c(1,1,2,2,1,1), bq=c(1,2,1,2,2,2))
a$sex <- factor(a$sex)    # 向量转换因子
levels(a$sex) <- c("M", "F")  # 数值型因子 转换 字符型因子
a$bq <- factor(a$bq)
levels(a$bq) <-c("A", "B", "C")
xtabs (~ sex + bq, data= a)

没用到数据框b

a <- data.frame(sex=c(1,1,2,2,1,1), bq=c(1,2,1,2,2,2))
b <- data.frame(variable=c("sex","sex","bq","bq","bq"),value=c(1,2,1,2,3),label=c("M","F","A","B","C"))
bsex <- subset(b, variable=="sex")
bbq <- subset(b, variable=="bq")
bsex$variable <- factor(bsex$variable)
bsex$variable <- bsex$label
bbq$variable <- factor(bbq$variable)
bbq$variable <- bbq$label
a$sex <- factor(a$sex)   
levels(a$sex) <- bsex$variable
a$bq <- factor(a$bq)
levels(a$bq) <- bbq$variable
xtabs(~ sex + bq, data = a)