Konvertieren-Liste, um Daten-Frames, während list-element-Namen

Ich haben Liste, wo die elementnames sind ID-tags und enthält ein Vektor mit numerischen Werten. Diese sind von ungleichen(!) Länge.

Möchte ich, um es zu transformieren, um einen Daten-frame, wo ich die ID in einer Spalte und die numerischen Werte in einer anderen Spalte. E. g.: 

$`1`  
[1] 1 2   
$`2`  
[1] 1 2 3 
$`3`  
[1] 1

Zu:

ID   Obs  
1    1  
1    2
2    1
2    2
2    3
3    1
InformationsquelleAutor ego_ | 2012-09-28
  1. 17

    Hier ist eine Möglichkeit:

    ## your list
ll <- list("1" = 1:2, "2" = 1:3, "3" = 1:2)
## convert to data.frame
dl <- data.frame(ID = rep(names(ll), sapply(ll, length)),
                 Obs = unlist(ll))

    Gibt es:

    > dl
   ID Obs
11  1   1
12  1   2
21  2   1
22  2   2
23  2   3
31  3   1
32  3   2

    Die erste Zeile in der data.frame() nennen, ist nur wenig code zu wiederholen, die names() von der Liste die erforderliche Anzahl von Zeiten. Die zweite Zeile nur unlists der Liste die Umwandlung in einen Vektor.

    • Ich gab Ihnen die richtige Antwort als Ihre Methode war der Schnellste: <br/> > system.Zeit(melt(X))<br/> user system elapsed <br/> 3.12 0.11 3.24 <br/> > system.Zeit(Daten.frame(ID = rep(Namen(X), sapply(X, Länge)), Obs = unlist(X)))<br/> user system elapsed <br/> 0.08 0.00 0.07<br/>
    • Ich kann nicht scheinen, um fügen Sie Zeilenumbrüche, sorry für die Verwirrung :S
    InformationsquelleAutor Reinstate Monica - G. Simpson
  2. 8

    Verwenden reshape2 und melt hat eine Methode melt.list

    .list <- list(`1` = 1:2, `2` = 1:3, `3` = 1:2)
library(reshape2)
melt(.list)
##   value L1
## 1     1  1
## 2     2  1
## 3     1  2
## 4     2  2
## 5     3  2
## 6     1  3
## 7     2  3
    InformationsquelleAutor mnel
  3. 2

    Einen guten und noch fehlende alternative zu den bereits geposteten Lösungen ist die stack-Funktion:

    df <- stack(ll)[2:1]

    gibt:

    > df
  ind values
1   1      1
2   1      2
3   2      1
4   2      2
5   2      3
6   3      1
7   3      2

    Mit setNames wie gut können Sie die genaue gewünschte format:

    df <- setNames(stack(ll)[2:1], c('ID','Obs'))

    gibt:

    > df
  ID Obs
1  1   1
2  1   2
3  2   1
4  2   2
5  2   3
6  3   1
7  3   2

    Verwendete Daten:

    ll <- list("1" = 1:2, "2" = 1:3, "3" = 1:2)
    InformationsquelleAutor Jaap
  4. 1

    Lösung mit den Basis-Funktionen

    List <- list('1'=c(1,2), '2'= c(1,2,3), '3'=1)
x <- unlist(List)  # as suggested by Gavin Simpson
data.frame(ID=substr(names(x),1,1), Obs=x)
   ID Obs
11  1   1
12  1   2
21  2   1
22  2   2
23  2   3
3   3   1

    Wenn Sie möchten, dass die rownames werden 1,2,3,4,5,6 die versuchen, diese (mit setNames):

    data.frame(ID=substr(names(x),1,1), Obs=setNames(x, NULL))
  ID Obs
1  1   1
2  1   2
3  2   1
4  2   2
5  2   3
6  3   1

    Diese Lösung ist nur gültig, wenn alle Namen, die gleiche Länge haben, sonst werde scheitern, und es wäre besser, verwenden Gavin Lösung. Siehe zum Beispiel:

    List2 <- list('week1'=c(1,2), 'week2'= c(1,2,3), 'week3'=1)
x <- unlist(List2)  
data.frame(ID=substr(names(x),1,nchar(names(x)[1])-1), Obs=setNames(x, NULL))

    ID   Obs
1 week1   1
2 week1   2
3 week2   1
4 week2   2
5 week2   3
6 week3   1
    • Ich denke, Sie können nur tun x <- unlist(List) können Sie nicht?
    • Simpson, du hast Recht, jetzt habe ich gerade bearbeitet, meine Antwort darunter Ihren Kommentar.
    • Es scheint, wie wenn ich unlist es fügt eine Zahl an den Namen des Elements verursacht, der rest des Skripts nicht für meinen Zweck :S
    • Grüner Ofstad ich bearbeitet meine Antwort, nun klappt es auch.
    • sorry, aber jetzt wechselt es alle Namen entweder "2" oder "5". Die elementnames sind Faktoren, die aus der ID.Jahreszeiten.Woche, z.B. 2225.Winter.1, wenn es das ist, helfen. Ich mag den Winkel der Verwendung von Basisfunktionen, wenn möglich, so wäre es schön, wenn das funktionieren könnte als gut..
    InformationsquelleAutor Jilber Urbina
Schreibe einen Kommentar