1 Introduction

As i will be going to Cebu next week, i would like to create an interactive leaflet map detailing some landmarks near the Pier 4/5 Area in Cebu City.

2 Pier Area

library(leaflet)
## Warning: package 'leaflet' was built under R version 3.5.3
Pier_Area <- leaflet() %>%
        addTiles () %>%
        addMarkers(lat=10.3071, lng =123.9167, 
                   popup='Sugbutel') %>%
        addMarkers(lat=10.3112, lng =123.9176,
                   popup ='SM City Cebu/SM Mabolo') %>%
        addMarkers(lat=10.3088, lng = 123.9125,
                   popup = 'White Gold Club') %>%
        addMarkers(lat=10.3126, lng = 123.9203,
                   popup = 'Grand Tower Cebu') %>%
        addMarkers(lat=10.306076, lng=123.915751,
                   popup = 'Pier 5') %>%
        addMarkers(lat=10.311559, lng=123.920518,
                   popup = 'MyBus Terminal') %>%
        addMarkers(lat=10.311554, lng=123.921468,
                   popup = 'Cebu Daily News Building') %>%
        addMarkers(lat=10.310064, lng =123.919341,
                   popup = 'Radisson Blu Hotel') %>%
        addMarkers(lat=10.306944, lng=123.917661,
                   popup = 'Qimonda Center Complex/Cebu City Hall of Justice') %>%
        addMarkers(lat=10.304307, lng=123.910964,
                   popup = 'Robinsons Galleria Cebu (the new one)')
Pier_Area