In Basis-R wäre die zu verwendende Funktion reshape , und Sie würden Ihre Daten von "lang" in "breit" umwandeln.
reshape(mydf, direction = "wide", idvar="perid", timevar="date")
# perid rating.2005 rating.2006 rating.2007 rating.2008 rating.2009 rating.2010 rating.2011
# 1 10001 RD GN GD <NA> <NA> <NA> <NA>
# 4 10002 <NA> <NA> <NA> GD YW GN GN
# 8 10003 GD GN YW <NA> <NA> <NA> <NA>
Alternativ können Sie sich dcast ansehen aus dem Paket "reshape2" und versuchen Sie:
library(reshape2)
dcast(mydf, perid ~ date, value.var="rating")
# perid 2005 2006 2007 2008 2009 2010 2011
# 1 10001 RD GN GD <NA> <NA> <NA> <NA>
# 2 10002 <NA> <NA> <NA> GD YW GN GN
# 3 10003 GD GN YW <NA> <NA> <NA> <NA>
Konvertieren Sie für eine bessere Geschwindigkeit Ihren data.frame zu einer data.table und verwenden Sie dcast.data.table stattdessen.
library(reshape2)
library(data.table)
DT <- data.table(mydf)
dcast.data.table(DT, perid ~ date, value.var = "rating")
# perid 2005 2006 2007 2008 2009 2010 2011
# 1: 10001 RD GN GD NA NA NA NA
# 2: 10002 NA NA NA GD YW GN GN
# 3: 10003 GD GN YW NA NA NA NA
Aus Ihren Kommentaren geht hervor, dass Sie unter den Kombinationen von Spalte 1 und 2 doppelte Werte haben, was bedeutet, dass standardmäßig dcast verwendet length als seine Aggregationsfunktion.
Um dies zu umgehen, müssen Sie eine sekundäre ID-Spalte (oder "Zeit" eigentlich) erstellen, was so gemacht werden kann.
Zunächst einige Beispieldaten. Beachten Sie die doppelte Kombination der ersten beiden Spalten in den Zeilen 1 und 2.
mydf <- data.frame(
period = c(10001, 10001, 10002, 10002, 10003, 10003, 10001, 10001),
date = c(2005, 2005, 2006, 2007, 2005, 2006, 2006, 2007),
rating = c("RD", "GN", "GD", "GD", "YW", "GN", "GD", "YN"))
mydf
# period date rating
# 1 10001 2005 RD
# 2 10001 2005 GN
# 3 10002 2006 GD
# 4 10002 2007 GD
# 5 10003 2005 YW
# 6 10003 2006 GN
# 7 10001 2006 GD
# 8 10001 2007 YN
Wenn Sie dcast versuchen , es "zählt" nur die Zahl unter jeder Kombination.
## Not what you want
dcast(mydf, period ~ date, value.var="rating")
# Aggregation function missing: defaulting to length
# period 2005 2006 2007
# 1 10001 2 1 1
# 2 10002 0 1 1
# 3 10003 1 1 0
Entscheiden Sie entweder, welche duplizierte Zeile gelöscht werden soll, oder fügen Sie, wenn alle Daten in Ihr Dataset gehören, eine „Zeit“-Variable wie diese hinzu:
mydf$time <- ave(1:nrow(mydf), mydf$period, mydf$date, FUN = seq_along)
mydf
# period date rating time
# 1 10001 2005 RD 1
# 2 10001 2005 GN 2
# 3 10002 2006 GD 1
# 4 10002 2007 GD 1
# 5 10003 2005 YW 1
# 6 10003 2006 GN 1
# 7 10001 2006 GD 1
# 8 10001 2007 YN 1
Jetzt dcast sollte gut funktionieren. Hier ist eine halblange Version...
dcast(mydf, period + time ~ date, value.var="rating")
# period time 2005 2006 2007
# 1 10001 1 RD GD YN
# 2 10001 2 GN <NA> <NA>
# 3 10002 1 <NA> GD GD
# 4 10003 1 YW GN <NA>
... und eine halbbreite Version.
dcast(mydf, period ~ date + time, value.var="rating")
# period 2005_1 2005_2 2006_1 2007_1
# 1 10001 RD GN GD YN
# 2 10002 <NA> <NA> GD GD
# 3 10003 YW <NA> GN <NA>
