General Lag en datos del panel de series temporales
-
29-10-2019 - |
Pregunta
Tengo un conjunto de datos similar a esto
User Date Value
A 2012-01-01 4
A 2012-01-02 5
A 2012-01-03 6
A 2012-01-04 7
B 2012-01-01 2
B 2012-01-02 3
B 2012-01-03 4
B 2012-01-04 5
Quiero crear un retraso de Value
, respetando User
.
User Date Value Value.lag
A 2012-01-01 4 NA
A 2012-01-02 5 4
A 2012-01-03 6 5
A 2012-01-04 7 6
B 2012-01-01 2 NA
B 2012-01-02 3 2
B 2012-01-03 4 3
B 2012-01-04 5 4
Lo he hecho de manera muy ineficiente en un bucle
df$value.lag1<-NA
levs<-levels(as.factor(df$User))
levs
for (i in 1:length(levs)) {
temper<- subset(df,User==as.numeric(levs[i]))
temper<- rbind(NA,temper[-nrow(temper),])
df$value.lag1[df$User==as.numeric(as.character(levs[i]))]<- temper
}
Pero esto es muy lento. He mirado usando by
y tapply
, pero no descubrí cómo hacer que funcionen.
No creo que XTS o TS funcionen debido al elemento de usuario.
¿Alguna sugerencia?
No hay solución correcta
Licenciado bajo: CC-BY-SA con atribución
No afiliado a StackOverflow