Benannte Liste To / From Data.Frame

Ich bin auf der Suche nach einem schnellen Weg, um hin und her zwischen einer Liste mit dem folgenden format:

$`a`
  [1] 1 2 3
$`b`
  [1] 4 5 6

zu/von einem Daten.Rahmen der folgenden Form:

   name x
 1    a 1
 2    a 2
 3    a 3
 4    b 4
 5    b 5
 6    b 6

(Nicht wirklich kümmert, was die Namen der Spalten, in diesem Fall).

Hier ist die Daten-Frames verwendet, die oben im R-format:

df <- data.frame(name=c(rep("a",3),rep("b",3)), x=c(1:3,4:6))

Wieder, ich bin auf der Suche nach zwei getrennte Vorgänge: eine zum konvertieren der oben genannten Daten.Rahmen zu einer Liste, und ein anderes zu konvertieren zurück zu einem Daten.frame.

InformationsquelleAutor der Frage Jeff Allen | 2012-05-03

  1. 34

    Verwenden stack und unstack in base-R:

    x <- data.frame(a=1:3, b=4:6)

x
  a b
1 1 4
2 2 5
3 3 6

    Verwenden stack von Breite zu groß, also stapeln Sie die Vektoren übereinander.

    y <- stack(x)
y
  values ind
1      1   a
2      2   a
3      3   a
4      4   b
5      5   b
6      6   b

    Verwenden unstack zu tun das Gegenteil.

    unstack(y)
  a b
1 1 4
2 2 5
3 3 6

    Wenn Sie Ihre Daten-Struktur ist komplizierter als du beschrieben hast, stack und unstack möglicherweise nicht mehr geeignet. In diesem Fall müssen Sie die reshape in Basis-f oder melt und dcast im Paket reshape2.

    InformationsquelleAutor der Antwort Andrie

  2. 8

    Vielleicht so etwas wie:

    X <- split(df$x, df$name)
data.frame(name = rep(names(X), sapply(X, length)), 
    x=do.call('c', X))

    EDIT: ich beschlossen, kombinieren Andrie und ich die Lösung in eine, die anscheinend genau, was die OP gefragt, für ziemlich einfach. Dass gesagt wird, ich verstehe nicht ganz, eine situation, wo ich behandeln würde, die Daten auf diese Weise statt, wie Andrie hat es da ein data frame ist eine Liste von Vektoren gleicher Länge sowieso.

    # Your data set
df <- data.frame(name=c(rep("a",3),rep("b",3)), x=c(1:3,4:6))

# converting it to list of vectors
X <- split(df[, 2], df[, 1])
# converting it to a dataframe
Y <- stack(X)[, 2:1]; names(Y) <- names(df)

# Take Y and feed it back to these lines to show it 
# switches back and forth
(X <- split(Y[, 2], Y[, 1]))
Y <- stack(X)[, 2:1]; names(Y) <- names(df);Y

    InformationsquelleAutor der Antwort Tyler Rinker

  3. 3

    Möchte ich, dass das hoffentlich nicht-triviale Bemerkung, die @Tyler Rinker Vorschlag

    X <- split(df$x, df$name)

    getan werden kann, generell mit 

    X <- split(df, df$name)

    @Tyler Rinker split() Erklärung entspricht der R-Kochbuch

    http://my.safaribooksonline.com/book/programming/r/9780596809287/6dot1dot-splitting-a-vector-into-groups/id3392005

    angeben, dass ein Vektor gruppiert werden können, während in der Tat die gesamte dataframe gruppiert werden können. Ich würde denken, dass die Gruppierung der dataframe, nicht den Vektor, der wäre wertvoller (und in der Tat, was brachte mich zu diesem post). 

    (df <- data.frame(name=c(rep("a",3),rep("b",3), rep("c",3)), x=c(1:3,4:6, 7:9)))
(X <- split(df, df$name))

    HTH.

    InformationsquelleAutor der Antwort Jack Ryan

Schreibe einen Kommentar