LabelEncoder Umsetzung in r

Question

G $ name - Zeichenspalt von Datenrahmen

labels_name <- unique(G$name) 

LabelEncoder <- function(value, labels) { 
    r <- as.numeric(which(labels == value)) 
    returnValue(r) 
} 

G$name1 <- LabelEncoder(G$name, labels_name) 

Ausführung von Code über erzeugt nächste Fehler:

Fehler in $<-.data.frame (*tmp* "name1" value = c (1, 4, 7, 10, 11,: Ersatz 100650 Reihen hat, Daten hat 302.194 Zusätzlich: Warnmeldung: In Etiketten == Wert: mehr Objektlänge nicht ein Vielfaches von kürzeren Objektlänge ist

Was ist los?

Answer 1

ich mein Problem lösen, indem die nächste Art und Weise:

Da G $ name ein Vektor habe ich nächste Zusatzfunktion

LabelEncoder1 <- function(x, labels) { 
    r <- sapply(x, LabelEncoder, labels) 
} 

G$name1 <- LabelEncoder1(G$name, labels_name) 

ist