Skip to content

Instantly share code, notes, and snippets.

@akshat3096

akshat3096/distance.R

Last active May 3, 2019 07:38
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save akshat3096/c70c53543ad3c40c2a57a7337e2246fe to your computer and use it in GitHub Desktop.
Save akshat3096/c70c53543ad3c40c2a57a7337e2246fe to your computer and use it in GitHub Desktop.
Download ZIP
Raw
distance.R
df %>%
filter(type == 'HKQuantityTypeIdentifierDistanceWalkingRunning') %>%
group_by(year,month) %>%
summarize(distance=sum(value)) %>%
print (n=100) %>%
ggplot(aes(x=month, y=distance, fill=year)) +
geom_bar(position='dodge', stat='identity') +
scale_y_continuous(labels = scales::comma) +
theme(panel.grid.major = element_blank())
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment