median_heart.R

heart_rate <- df %>%
  filter(type == 'HKQuantityTypeIdentifierHeartRate') %>%
  group_by(date,year,month) %>%
  summarize(heart_rate=median(value))+
  xlab("Month/Year")

heart_rate$date <- as.Date(heart_rate$date,"%Y-%m-%d")

plot <- ggplot(heart_rate,aes(x=date, y=heart_rate, group=year)) + 
  geom_line(aes(colour=year))+
  ggtitle("Median heartrate")+
  xlab("Month/Year")

plot+
  scale_x_date(date_labels = "%b/%Y")