Skip to content

Instantly share code, notes, and snippets.

@akshat3096 akshat3096/median_heart.R
Last active May 3, 2019

Embed
What would you like to do?
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")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.