Plotting Central Park and Staue of Liberty on Leaflet.

library(leaflet)
leaflet() %>% addTiles() %>%
  addMarkers(lat = c(40.785091,40.689247), lng = c(-73.968285, -74.044502), popup = c("Central Park", "Statue of Liberty"))