Entiendo que date
es algún tipo de fecha y no una cadena, siendo así, podrías hacer lo siguiente:
df$desde <- df$date - 3
df$media <- apply(df, 1, function(x) mean(df$unit_sales[df$date >= x["desde"] & df$date < x["date"]],na.rm = TRUE))
df
date unit_sales desde media
1 2013-01-10 1 2013-01-07 NaN
2 2013-01-11 1 2013-01-08 1
3 2013-01-14 1 2013-01-11 1
4 2013-01-18 2 2013-01-15 NaN
5 2013-01-21 1 2013-01-18 2
6 2013-01-25 1 2013-01-22 NaN
Detalle:
- Generamos una nueva columna con una nueva fecha 3 días antes de cada
date
- Con
apply
aplicamos una función por cada fila que calcula la media de la selección deseada
Nota: este código se podría hacer aún más compacto, usando sapply()
para evitar la conversión implícita a character
de las fechas
df$media <- sapply(df$date, function(x) mean(df$unit_sales[df$date >= (x - 3) & df$date < x],na.rm = TRUE))