Skip to content

Instantly share code, notes, and snippets.

@zaynaib
Created November 6, 2021 18:27
Show Gist options
  • Save zaynaib/0d8f9eb9e62f1c4a5965a2f6548db5ae to your computer and use it in GitHub Desktop.
Save zaynaib/0d8f9eb9e62f1c4a5965a2f6548db5ae to your computer and use it in GitHub Desktop.
Map of red light camera locations in Chicago
library("tidyverse")
library("ggmap")
redLight <- read.csv("speed-camera-locations.csv")
glimpse(redLight)
chicago <- c(lat=-87.6298,lat=41.8781)
chicago_map <- get_map(location = chicago, zoom=10)
ggmap(chicago_map) +
geom_point(aes(LONGITUDE,LATITUDE,color="red"),data=redLight)
@zaynaib
Copy link
Author

zaynaib commented Nov 6, 2021

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment