r - 将因子转换为原始数值

Question

我不知道为什么我要为此而苦苦挣扎，因为似乎有很多 SO 答案可以解决这个问题。但我在这里。

我将一个由 1 和 0 组成的向量转换为一个因子，并将值标记为"is"和“否”。

fact <- factor(c(1,1,0,1,0,1),
               levels=c(1,0),
               labels=c("yes", "no"))
#[1] yes yes no  yes no  yes
#Levels: yes no

有关将因子转换回数值的问题的答案建议 as.numeric(as.character(x))和 as.numeric(levels(x)[x] .

as.numeric(as.character(fact))
#[1] NA NA NA NA NA NA

as.numeric(levels(fact))[fact]
#[1] NA NA NA NA NA NA

Answer 1

fact <- factor(c(1,1,0,1,0,1),
               levels=c(1,0),
               labels=c("yes", "no"))
fact
# [1] yes yes no  yes no  yes
# Levels: yes no
levels(fact)
# [1] "yes" "no" 

现在， fact 的水平是一个字符向量。 as.numeric(as.character(fact))根本无法完成这项工作。

c(1, 0)[fact]
# [1] 1 1 0 1 0 1

更新:

unclass(fact)
# [1] 1 1 2 1 2 1
# attr(,"levels")
# [1] "yes" "no" 
mode(fact)
# [1] "numeric"