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)

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)

jmpamao 发表于 2012-10-12 00:36
看来这世道 赚钱不容易啊，凌晨了，qoiqpwqr
版主大人 还在。。。。

qoiqpwqr 发表于 2012-10-11 00:09
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, ]
    n <- nrow(labs)
    for (j in 1:n) {
        a[a[, vars] == labs$value[j], vars] <- labs$label[j]
    }
    a[, vars] <- factor(a[, vars])
    levels(a[, vars]) <- c(labs$label)
}