Calcul d'une valeur moyenne par semaine

[Jean-Emmanuel Longueville]

Bonjour,
J'ai pour simplifier un df avec deux colonnes l'une est une date et l'autre une valeur de poids.
A partir de ces données j'aimerai calculer une valeur moyenne de poids par semaine ?
Auriez vous une piste à me donner ?
Merci

[Eric Casellas]

Salut,

Une proposition en utilisant le formatage de date via %W et %Y

Code : Tout sélectionner

dates <- seq(as.Date("2020-01-01"), as.Date("2020-01-01")+900, by = "1 day")
df <- data.frame(date=dates, valeur=rnorm(901))

by(df$valeur, paste(format(df$date, format="%Y"), format(df$date, format="%W")), mean)


[Mickael Canouil]

Bonjour,

Une optimisation du code de Eric et quelques autres options d'écritures.

Code : Tout sélectionner

by(df$valeur, format(df$date, format="%Y-%W"), mean) 

Code : Tout sélectionner

with(df, by(valeur, format(date, format="%Y-%W"), mean)) 

Code : Tout sélectionner

library(dplyr)
df %>% 
  group_by(year_week = format(date, format="%Y-%W")) %>% 
  summarise(mean = mean(valeur)) %>% 
  ungroup() 

Cordialement,