współczynnik konwersji do oryginalnej wartości liczbowej

Question

Nie wiem, dlaczego walczę z tym, ponieważ wydaje się, że istnieje wiele odpowiedzi na SO, które rozwiązują to pytanie. Ale oto jestem.

Konwertuję wektor 1 i 0 na współczynnik i oznaczam wartości "tak" i "nie".

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 

Odpowiedzi na pytania dotyczące czynników konwersji z powrotem do wartości liczbowe wskazują as.numeric(as.character(x)) i 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

Najprostszym rozwiązaniem jest zmiana sposobu określania wywołania czynnika, aby mógł on działać z dowolną liczbą poziomów liczbowych.

fact <- factor(c(1,1,0,1,0,1, 2), 
       levels=c(0,1, 2), 
       labels=c("no", "yes", "maybe")) 
as.numeric(fact) - 1 

Answer 2

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" 

Teraz poziomy fact jest wektorem znaków. as.numeric(as.character(fact)) w żaden sposób nie wykonuje tej pracy.

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

Aktualizacja:

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