Skip to content

Instantly share code, notes, and snippets.

@jonathanlxy

jonathanlxy/Vision Zero - Time Range 1 Secret

Last active July 25, 2016 14:20
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 jonathanlxy/a9fc76e9c049c64403c9f42e99730da8 to your computer and use it in GitHub Desktop.
Save jonathanlxy/a9fc76e9c049c64403c9f42e99730da8 to your computer and use it in GitHub Desktop.
Download ZIP
Vision Zero Visualization Blog Post Gist
Raw
Vision Zero - Time Range 1
# Let's visualize original time range
g <- ggplot(data = sample_set(work_dt),
aes(x = factor(month(FULLDATE)),
y = YEAR))
g +
geom_tile(aes(fill = factor(YEAR)), color = 'white') +
# ggtitle('Time Range of NYC Motor Vehicle Collision Data') +
labs(x = 'Month')+
theme(legend.position = 'none',
axis.text=element_text(size=12),
axis.title=element_text(size=14,face="bold")
)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment