gleitender Durchschnitt mit rcpproll

Question

Ich habe Datenrahmen:

email date_ts total duration 

email1 2017-02-15 98.80 31990 
email1 2017-02-16 59.52 60622 
email1 2017-02-17 72.93 98105 
email2 2017-02-18 54.45 29293 
email2 2017-02-19 36.86 20157 
email2 2017-02-25 18.66  7815 
email2 2017-03-03 4.61  2407 
email2 2017-03-04 180.91 182524 
email3 2017-03-05 16.13  7121 
email3 2017-03-24 25.65  2412 

und so weiter ...

ich berechnen muß mit Bibliothek RcppRoll Durchschnitt bewegen. Ich versuche:

df <- df%>%group_by(email)%>%mutate(avg = roll_mean(total, 2, na.rm=TRUE, align="right", normalize = TRUE))%>%ungroup() 

haben aber einen Fehler: Fehler in mutate_impl (.data Punkte): unvereinbar Größe (12), erwarten 13 (die Gruppengröße) oder 1

Answer 1

Im eine Lösung finden. Wenn Sie das gleiche Problem haben, verwenden Sie folgendes:

library(dplyr) 
library(RcppRoll) 

df <- df%>% 
    group_by(email)%>% 
    mutate(avg = roll_mean(total, 2, na.rm=TRUE, align="right", fill = NA))%>% 
    ungroup()