Schwenkbare Zeilen in Spalten

Angenommen (zur Vereinfachung) ich habe eine Tabelle, die eine gewisse Kontrolle vs. Behandlung Daten:

Which, Color, Response, Count
Control, Red, 2, 10
Control, Blue, 3, 20
Treatment, Red, 1, 14
Treatment, Blue, 4, 21

Für jede Farbe, ich möchte eine einzelne Zeile mit der Kontrolle und Behandlung von Daten, d.h.:

Color, Response.Control, Count.Control, Response.Treatment, Count.Treatment
Red, 2, 10, 1, 14
Blue, 3, 20, 4, 21

Ich denke, ein Weg, dies zu tun ist durch die Verwendung eines internen merge auf jede Kontrolle/Behandlung Teilmenge (Verschmelzung auf die Spalte Farbe), aber gibt es einen besseren Weg? Ich dachte der reshape Paket oder der Stapel-Funktion irgendwie könnte es tun, aber ich bin mir nicht sicher.

Wenn Sie erstellen eine brauchbare Daten.Rahmen mit so etwas wie d....put(head(df,20)) es wirkt Wunder für diejenigen von uns, die versuchen, Sie zu beantworten

InformationsquelleAutor grautur | 2010-09-30

  1. 19

    Mithilfe des reshape-Paket.

    Ersten, Schmelzen Ihre Daten.Rahmen: 

    x <- melt(df)

    Dann Darsteller: 

    dcast(x, Color ~ Which + variable)

    Je nachdem, welche version von der reshape-Paket, mit dem Sie arbeiten, könnte es sein cast() (reshape) oder dcast() (reshape2)

    Voila.

    InformationsquelleAutor Brandon Bertelsen

  2. 6

    Den cast Funktion aus der reshape - Paket (nicht zu verwechseln mit der reshape - Funktion in base-R) können das und viele andere Dinge. Siehe hier: http://had.co.nz/reshape/

    Oh, ja, ich meinte die reshape-Paket. Ich war mir nicht sicher, wie Sie Sie verwenden cast zu tun, was ich will, obwohl? Ein enger Weg ist, indem Sie cast(data, position ~ variable | die), aber dies stellt die Kontrolle/Behandlung in einer Liste, anstatt in den Spalten.
    Ich erinnere mich nicht genau, aber ich bin mir ziemlich sicher, dass der reshape Paket-Dokumentation enthält ein Beispiel für genau das. Man muss es sagen, wie Sie wollen, dass die Namen der Spalten konstruiert.

    InformationsquelleAutor zwol

  3. 6

    Hinzufügen, um die Optionen (viele Jahre später)....

    Ist der typische Ansatz in base-R würde die reshape - Funktion (die ist in der Regel unbeliebt ist wegen der Vielzahl der Argumente, nehmen Sie sich Zeit zu meistern). Es ist eine ziemlich effiziente Funktion für kleinere Datensätze, aber nicht immer gut skaliert.

    reshape(mydf, direction = "wide", idvar = "Color", timevar = "Which")
#   Color Response.Control Count.Control Response.Treatment Count.Treatment
# 1   Red                2            10                  1              14
# 2  Blue                3            20                  4              21

    Bereits abgedeckt sind cast/dcast aus dem "reshape" und "reshape2" (und jetzt dcast.data.table aus "Daten.Tabelle", besonders nützlich, wenn Sie große datasets). Aber auch aus der Hadleyverse, es gibt "tidyr", die funktioniert gut mit der "dplyr" - Paket:

    library(tidyr)
library(dplyr)
mydf %>%
  gather(var, val, Response:Count) %>%  ## make a long dataframe
  unite(RN, var, Which) %>%             ## combine the var and Which columns
  spread(RN, val)                       ## make the results wide
#   Color Count_Control Count_Treatment Response_Control Response_Treatment
# 1  Blue            20              21                3                  4
# 2   Red            10              14                2                  1

    Auch zu beachten wäre, dass in einer der nächsten version der "Daten.Tabelle", die dcast.data.table Funktion sollte in der Lage sein, dies zu behandeln, ohne zuerst melt Ihrer Daten.

    Den data.table Umsetzung von dcast ermöglicht Ihnen das konvertieren mehrerer Spalten zu einem breiten format, ohne zu Schmelzen Sie es zuerst, wie folgt:

    library(data.table)
dcast(as.data.table(mydf), Color ~ Which, value.var = c("Response", "Count"))
#    Color Response_Control Response_Treatment Count_Control Count_Treatment
# 1:  Blue                3                  4            20              21
# 2:   Red                2                  1            10              14
    Danke für reshape Beispiel. Ich glaube, Ihr reshape Beispiel zusammen mit der ursprünglichen Frage Hinzugefügt werden soll reshape Funktion offizielle Dokumentation.

    InformationsquelleAutor A5C1D2H2I1M1N2O1R2T1

  4. 3

    Umformen funktioniert in der Tat für Schwenk eine skinny-Daten-frame (z.B. von einer einfachen SQL-Abfrage), um eine große matrix, und ist sehr flexibel, aber es ist langsam. Bei großen Datenmengen, sehr, sehr langsam. Glücklicherweise, wenn Sie nur wollen, um pivot zu einer festen Form, es ist ziemlich einfach zu schreiben, eine kleine C-Funktion zu tun, die pivot-schnell.

    In meinem Fall, schwenkbare eine skinny-Daten-frame mit 3 Spalten und 672,338 Zeilen nahm 34 Sekunden mit Umformen, 25 Sekunden mit meiner R-code, und 2,3 Sekunden mit C. Ironischerweise, die C-Implementierung war wahrscheinlich einfacher zu schreiben, als meine (tuned for speed) R Umsetzung.

    Hier ist das Kern-C-code für Schwenk-floating-point-zahlen. Beachten Sie, dass es wird davon ausgegangen, dass Sie bereits zugeordnete eine korrekte Ergebnis-matrix in R vor Aufruf der C-code, der bewirkt, dass die R-devel Leute Gruseln im horror:

    #include <R.h> 
#include <Rinternals.h> 
/* 
 * This mutates the result matrix in place.
 */
SEXP
dtk_pivot_skinny_to_wide(SEXP n_row  ,SEXP vi_1  ,SEXP vi_2  ,SEXP v_3  ,SEXP result)
{
   int ii, max_i;
   unsigned int pos;
   int nr = *INTEGER(n_row);
   int * aa = INTEGER(vi_1);
   int * bb = INTEGER(vi_2);
   double * cc = REAL(v_3);
   double * rr = REAL(result);
   max_i = length(vi_2);
   /*
    * R stores matrices by column.  Do ugly pointer-like arithmetic to
    * map the matrix to a flat vector.  We are translating this R code:
    *    for (ii in 1:length(vi.2))
    *       result[((n.row * (vi.2[ii] -1)) + vi.1[ii])] <- v.3[ii]
    */
   for (ii = 0; ii < max_i; ++ii) {
      pos = ((nr * (bb[ii] -1)) + aa[ii] -1);
      rr[pos] = cc[ii];
      /* printf("ii: %d \t value: %g \t result index:  %d \t new value: %g\n", ii, cc[ii], pos, rr[pos]); */
   }
   return(result);
}
    Könnten Sie Beispiele nennen?
    Ich sollte aufgeräumt hast meine pivot-code und legen Sie es in einen stand-alone-R Paket, aber nie getan... 🙁 Das Kern-C-code ist ziemlich einfach, habe ich nur noch die floating point version zu meinem ursprünglichen post oben. Der R-code, den ich verwenden, um Laufwerk, das ist ein bisschen komplizierter (und auch viele Sachen, speziell für meine Umwelt). Es setzt dimnames, schwenkt Saiten mit der Umstellung auf/von ganzzahligen Faktoren, etc.

    InformationsquelleAutor atp

Schreibe einen Kommentar