Leaflet

library(leaflet)
leaflet() %>%
  addTiles() %>%
  addMarkers(lng=-76.603611, lat=39.283167, popup="Mr. Trash Wheel Cleans Here!") %>%
  addMarkers(lng=-76.580603, lat=39.279603, popup="Professor Trash Wheel Cleans Here!")