Skip to content

Instantly share code, notes, and snippets.

@akshat3096

akshat3096/flight.R

Last active May 3, 2019 07:39
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/8fa747b771e6b08c29ce45d377a834b3 to your computer and use it in GitHub Desktop.
Save akshat3096/8fa747b771e6b08c29ce45d377a834b3 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
flight.R
flight<-df %>%
filter(type == 'HKQuantityTypeIdentifierFlightsClimbed') %>%
group_by(year,month) %>%
summarize(flights=sum(value)) %>%
print (n=100) %>%
ggplot(aes(x=month, y=flights, fill=year)) +
geom_bar(position='dodge', stat='identity') +
scale_y_continuous(labels = scales::comma) +
theme(panel.grid.major = element_blank())+
ggtitle("Total flights climbed")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment