Skip to main content
se añadieron 247 caracteres en el cuerpo
Origen Enlace
Patricio Moracho
  • 61.1k
  • 12
  • 42
  • 72

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))

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

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))
Origen Enlace
Patricio Moracho
  • 61.1k
  • 12
  • 42
  • 72

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