Taxi Availability Clusters

Importing librarires & fetching data

library(dplyr)
library(leaflet)
taxi_data <- read.csv('taxi_coordinates_2017-10-02T08:30:00_monday.csv')

Finding Taxi Density Clusters across Singapore

taxi_data %>%
  leaflet() %>%
  addTiles() %>%
  addMarkers(clusterOptions = markerClusterOptions())

Marking location of all taxis at given time

taxi_data %>%
  leaflet() %>%
  addTiles() %>%
  addCircles(radius = 2,color = "blue")

## Assuming 'longitude' and 'latitude' are longitude and latitude, respectively