Shuttle Points Map

Load Libraries

library(leaflet)

Create a leaflet map

map <- leaflet() %>% addTiles() %>%

    # Add markers for shuttle points
    addMarkers(lat = 14.5535, lng = 121.0499, popup = "The Globe Tower") %>%
    addMarkers(lat = 14.5718, lng = 121.0498, popup = "Globe Telecom Plaza") %>%
    addMarkers(lat = 14.5492, lng = 121.0280, popup = "Shell Ayala") %>%
    addMarkers(lat = 14.5597, lng = 121.0187, popup = "Globe Valero Telepark") %>%
    addMarkers(lat = 14.5503, lng = 121.0561, popup = "Market Market")

# Display the map
map

In this RMarkdown document, we first load the leaflet library to create interactive maps. Then, we create a leaflet map and add markers for different shuttle points with their respective latitude, longitude, and popup descriptions. Finally, we display the map using the map object.