library(leaflet)
map <- leaflet() %>% addTiles() %>% addMarkers(lat=53.430626, lng=-2.960748, popup = "Anfield Road, Liverpool") %>% addMarkers(lat=53.438577, lng=-2.966257, popup = "Goodison Park, Liverpool") map