Schleife zu konvertieren Faktoren in numerische

Question

ich in meinem Dataset versuchen einige Faktorvariablen, und ich habe sie numerisch zu konvertieren mit Schleife

a = sample(c('a', 'b'), 100, replace = TRUE) 
b = sample(c('a', 'b'), 100, replace = TRUE) 
df = as.data.frame(cbind(a, b)) 
library(plyr); library(dplyr) 
for(i in df[, 1:2]) { 

    k = as.numeric(as.character(revalue(df[,i], 
              c('a' = 1, 
              'b'= 2 
              )))) 
} 

und ich bekomme Fehler

Error in revalue(df[, i], c(a = "1", b = "2")) : 
    x is not a factor or a character vector. 

Was ist los? NB Es ist wichtig, dass 'a' bis 1 & 'b' = 2

Answer 1

Wie immer hat R Funktionalität eingebaut, diese Art der Zuordnung keine Probleme zu tun: (: 2 i in 1) `(oder alternativ` for (i in seq_along für

df[] <- lapply(df, function(x) c(a=1,b=2)[as.character(x)]) 

Answer 2

Sie brauchen nicht eine Schleife für die zB gleich ist:

library(plyr) 
as.data.frame(sapply(df, mapvalues,from = c("a", "b"),to = c(1, 2))) 

Und:

df2$a <- as.numeric(as.character(df2$a)) 
df2$b <- as.numeric(as.character(df2$b)) 
class(df2$a) 
[1] "numeric" 

Answer 3

Nur um dies zu verdeutlichen: Ein Datenrahmen ist eine Liste, und lapply ist oft eine gute Lösung, um Dinge in Listen zu tun. ;) Zum Beispiel könnten Sie versuchen:

df[] <- lapply(df, function(x){ 
    if(is.factor(x)) return(revalue(x, c('a' = 1, 'b'= 2))) 
    else return(x) 
} ) 

Dieser Code führt Folgendes aus: für jede Spalte, überprüft er, ob die Spalte ein Faktor. Wenn es sich um einen Faktor handelt, wird es entsprechend Ihrem Zustand umgeschrieben. Wenn es kein Faktor ist, werden die Daten unverändert gelassen. Sie können auch die Funktion ändern, die an lapply geliefert wird, um mehr "aufwendige" Dinge zu tun.