step_count.R

steps <- df %>%
  filter(type == 'HKQuantityTypeIdentifierStepCount') %>%
  group_by(date,year,month) %>%
  summarize(steps=sum(value))

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

plot2 <- ggplot(steps,aes(x=date, y=steps, group=year)) + 
  geom_line(aes(colour=year))+
  geom_snooth(se=F)+
  ggtitle("Total Steps Everyday")+
  xlab("Month/Year")

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