Interactive Chart of Selected London Landmarks

Creating a Map Within Leaflet

The following RMarkdown document contains a map created by the interactive mapping package Leaflet as part of the Developing Data Products assignment on Coursera

library(leaflet)

icon_usable <- makeIcon( 
        iconUrl = "https://www.pngall.com/wp-content/uploads/10/London-Transparent-PNG.png",
        iconWidth = 62*215/230, iconHeight = 62, iconAnchorX = 31*215/230/2, iconAnchorY = 16)

londonlatlong <- data.frame(
        lat = c(51.503399, 51.518757, 51.508530, 51.508039),
        lng =c( -0.119519, -0.126168, -0.076132,  -0.128069))

popupName <- c('London Eye', 'British Museum', 'Tower of London', 'Trafalgar Square')

londonlatlong %>%
        leaflet() %>%
        addTiles() %>%
        addMarkers( popup = popupName, icon= icon_usable)