Transponieren Daten von Gruppen in R

Ich habe Daten in folgender Struktur:

x <- read.table(header=T, text="
X Y D S
a e 1 10
a e 2 20
a f 1 50
b c 1 40
b c 2 30
b c 3 60
b d 1 10 
b d 2 20")

Und ich möchte, um das folgende Ergebnis:

X Y   1   2   3
a e  10  20
a f  50
b c  40  30  60
b d  10  20

Sich für jede Kombination von Spalten X und Y ich möchte das transponieren von Daten in der Spalte S durch die Reihenfolge, in der Spalte D.

Dachte ich xtabs() funktionieren wird, aber ich denke nicht so, mein bester-version:

xtabs(formula=S~Y+D,data=x)

Mit dem Ergebnis:

   D
Y    1  2  3
  c 40 30 60
  d 10 20  0
  e 10 20  0
  f 50  0  0
InformationsquelleAutor Tomas Greif | 2013-06-29
  1. 10
    require(reshape2)
dcast(x, X + Y ~ D, value.var="S")

    Wenn Sie möchten füllen die leeren Einträge mit 0 statt NA (dies ist die Standardeinstellung), dann

    dcast(x, X + Y ~ D, value.var="S", fill=0)
    InformationsquelleAutor Arun
  2. 7

    Einer Lösung in base-R:

    > reshape(x, timevar="D", idvar=c("X","Y"), direction="wide")
  X Y S.1 S.2 S.3
1 a e  10  20  NA
3 a f  50  NA  NA
4 b c  40  30  60
7 b d  10  20  NA
    InformationsquelleAutor Ferdinand.kraft
  3. 3

    Den beiden anderen Antworten sind sehr gut, aber für was es Wert ist, da Sie erwähnten Sie begann Ihre versuche mit xtabs Sie kann in der Nähe erhalten, was Sie suchen mit einer Kombination von xtabs und ftable. Aber das Ergebnis wird alle faktorstufen

    ftable(xtabs(S ~ ., x))
#     D  1  2  3
# X Y           
# a c    0  0  0
#   d    0  0  0
#   e   10 20  0
#   f   50  0  0
# b c   40 30 60
#   d   10 20  0
#   e    0  0  0
#   f    0  0  0

    Alternativ können Sie etwas wie das hier tun:

    data.frame(unique(x[1:2]), 
           as.data.frame.matrix(xtabs(S ~ do.call(paste, x[1:2]) + D, x)))
#   X Y X1 X2 X3
# 1 a e 10 20  0
# 3 a f 50  0  0
# 4 b c 40 30 60
# 7 b d 10 20  0
    InformationsquelleAutor A5C1D2H2I1M1N2O1R2T1
Schreibe einen Kommentar