TaxiDataSingapore

R Markdown

The map dispplays available cabs in Singapore at 1:10 AM Singapore time on 2 September 2017.

library(jsonlite)
df <- fromJSON("taxi_data.json")
df <- df$value
names(df) <- c ("lng","lat")

library(leaflet)
df %>% leaflet() %>% addTiles() %>% addMarkers(clusterOptions = markerClusterOptions())