Developing data products-project1

Required libraries

library(knitr)
library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(leaflet)

## Warning: package 'leaflet' was built under R version 4.0.2

Created the map of Singapore by using leaflet. Exhibited the pointers for Changi airport, Hougang mall, Riversails condominium, Marina Bay and Santosa Island.

map<-leaflet() %>% addTiles() %>% 
     addMarkers(lat=1.359167, lng=103.989441, popup="Changi Airport, Singapore")%>%
     addMarkers(lat=1.3726, lng= 103.8937, popup="Hougang Mall, Singapore")%>%
     addMarkers(lat=1.282302, lng=103.858528, popup="Marina Bay, Singapore")%>%
     addMarkers(lat=1.254975, lng=103.817596, popup="Sentosa Island, Singapore")%>%
     addMarkers(lat=1.3777 , lng=103.9024, popup="Riversails Condominium, Singapore")
  
map

Mapping clusters

Zoom in to each cluster then the cluster will detatch until you see the individual popups

cluster<-data.frame(lat=runif(500, min=1.22, max=1.39), 
                    lng=runif(500, min=103.8, max=103.99))
cluster<-cluster %>% leaflet() %>% addTiles %>% 
           addMarkers(clusterOptions=markerClusterOptions())

cluster