Beitritt Faktor Ebenen der zwei Spalten

Ich habe 2 Spalten mit Daten mit der gleichen Art von Daten (Strings).

Will ich join die Stufen der Spalten. dh. wir haben:

col1   col2
Bob    John
Tom    Bob
Frank  Jane
Jim    Bob
Tom    Bob
...    ... (and so on)

nun col1 hat 4 Ebenen (Bob, Tom Frank, Jim) und col2 hat 3 Ebenen (John, Jane, Bob)

Aber ich will beide Spalten haben alle faktorstufen (Bob, Tom, Frank, Jim, Jane, John), wie später ersetzen Sie jede von den 'Namen' mit einer eindeutigen id, so dass die Letzte Ausgabe wäre:

col1   col2
1      5
2      1
3      6
4      1
2      1

ist Bob -> 1, Tom -> 2, etc. in beiden Spalten.

Irgendwelche Ideen 🙂 ?

edit: vielen Dank allen für die wunderbaren Antworten! Sie sind alle genial, soweit ich weiß 🙂

InformationsquelleAutor abcde123483 | 2011-01-31
  1. 5

    Wollen Sie die Faktoren, die alle eindeutige Namen aus beiden Spalten.

    col1 <- factor(c("Bob", "Tom", "Frank", "Jim", "Tom"))
col2 <- factor(c("John", "Bob", "Jane", "Bob", "Bob"))
mynames <- unique(c(levels(col1), levels(col2)))
fcol1 <- factor(col1, levels = mynames)
fcol2 <- factor(col2, levels = mynames)

    EDIT: ein wenig schöner, wenn Sie ersetzen die Dritte Zeile mit dieser:

    mynames <- union(levels(col1), levels(col2))
    InformationsquelleAutor J. Win.
  2. 11
    x <- structure(list(col1 = structure(c(1L, 4L, 2L, 3L, 4L), .Label = c("Bob", "Frank", "Jim", "Tom"), class = "factor"), col2 = structure(c(3L, 1L, 2L, 1L, 1L), .Label = c("Bob", "Jane", "John"), class = "factor")), .Names = c("col1", "col2"), class = "data.frame", row.names = c(NA, -5L))

    Machen Sie eine einfache union-Faktor-Namen:

    both <- union(levels(x$col1), levels(x$col2))

    Und relevel die zwei Faktoren:

    x$col1 <- factor(x$col1, levels=both)
x$col2 <- factor(x$col2, levels=both)

    Nach der Bearbeitung: Hinzugefügt Beispiel, um numerische Werte, die von Faktoren

    Könnte man einfach verwandeln den Faktor Ebenen, um numerische Werte, z.B.:

    as.numeric(x$col1)

    Oder eine einfachere, schönere Lösung basierend auf dem @Gavin Simpson ' s Tipp unten in einem Schritt:

    data.matrix(x)
    • Ordentlich, sauber & schnell. Große einer. IMHO besser als die Antwort, die @Gavin geschrieben, obwohl ich lieber data.frame(lapply(... Lösung, aus lauter Faulheit.
    • +1 Sie schlagen mir eine vernünftige Antwort. Können Sie ändern Ihre as.numeric(x$col1) nur data.matrix(x)? Wenn ja, werde ich löschen meine Antwort überflüssig.
    • hey, keine Messe, ich muss, erhält Punkte für die Anzahl der Zeichen, die eingegeben!? 😉
    • zurück bringen Sie Ihre post, so kann ich +1 dabei! =)
    • jetzt glücklich? 😉 Wenn ich ein downvote, ich weiß, wer zu kommen suchen! 😉
    • Simpson habe ich aktualisiert meine Antwort, basierend auf Ihren wirklich netten Hinweis. Ich hatte keine Ahnung, wie data.matrix bis jetzt, danke für die Lektion! Und ich denke, Sie sollten Sie nicht löschen, Ihre Antwort, andere Lösungen nur die Frage spannender 🙂
    • Ich bin damit einverstanden, nicht löschen!!! @daroczig, ich habe aktualisiert mine basiert auf das erlernen Ihrer Nutzung union Es ist der Kreislauf des Lebens 🙂
    • yup, diese wirklich einfache Frage wurde beantwortet in einem ziemlich chaotischen Weg, aber nur die Lösung zählt! 🙂

    InformationsquelleAutor daroczig
  3. 2

    Hätte schwören können, das hat nicht funktioniert, wenn ich geschrieben hatte, dem Greuel unten, aber es funktioniert jetzt:

    ## self contained example:
txt <- "col1   col2
Bob    John
Tom    Bob
Frank  Jane
Jim    Bob
Tom    Bob"
dat <- read.table(textConnection(txt), header = TRUE)

    Einfach berechnen einzigartige Reihe von Ebenen und zwingen jeden colX zu einem Faktor:

    > dat3 <- dat
> lev <- as.character(unique(unlist(sapply(dat, levels))))
> dat3 <- within(dat3, col1 <- factor(col1, levels = lev))
> dat3 <- within(dat3, col2 <- factor(col2, levels = lev))
> str(dat3)
'data.frame':   5 obs. of  2 variables:
 $ col1: Factor w/ 6 levels "Bob","Tom","Frank",..: 1 2 3 4 2
 $ col2: Factor w/ 6 levels "Bob","Tom","Frank",..: 5 1 6 1 1
> data.matrix(dat3)
     col1 col2
[1,]    1    5
[2,]    2    1
[3,]    3    6
[4,]    4    1
[5,]    2    1

    [Original: zu zeigen, wie dumm komplexen und verborgenen kann man schreiben R-code es versucht, wirklich schwer!]
    Nicht, dass das besonders elegant (und es nicht), aber...

    Wir zuerst unlist die Daten:

    tmp <- unlist(dat)

    berechnen Sie die einzigartige levels

    lev <- as.character(unique(tmp))

    und dann umzustrukturieren tmp (von oben) wieder in den gleichen Abmessungen wie die ursprünglichen Daten, konvertieren von Daten.Rahmen (Erhaltung der Saiten), lapply über diese Daten-frame und erstellt ein Faktor mit Stufen lev berechnete oben, und endlich zwingen, um einen Daten-frame.

    dat2 <- data.frame(lapply(data.frame(matrix(tmp, ncol = ncol(dat)), 
                                     stringsAsFactors = FALSE), 
                          FUN = factor, levels = lev))

    Gibt:

    > dat2
     X1   X2
1   Bob John
2   Tom  Bob
3 Frank Jane
4   Jim  Bob
5   Tom  Bob
> sapply(dat2, levels)
     X1      X2     
[1,] "Bob"   "Bob"  
[2,] "Tom"   "Tom"  
[3,] "Frank" "Frank"
[4,] "Jim"   "Jim"  
[5,] "John"  "John" 
[6,] "Jane"  "Jane" 
> data.matrix(dat2)
     X1 X2
[1,]  1  5
[2,]  2  1
[3,]  3  6
[4,]  4  1
[5,]  2  1
    InformationsquelleAutor Reinstate Monica - G. Simpson
Schreibe einen Kommentar