Yusuf Sultan Usinf leaflet package to show map
require("leaflet")
## Loading required package: leaflet
mymap <- leaflet() %>% addTiles() %>% addMarkers(lat=43.6605798, lng=-70.2524934, popup = "Portland")
mymap
PortlandMap = leaflet() %>% setView(lng = -70.2524934, lat = 43.6605798, zoom = 12)
PortlandMap %>% addTiles() %>% hideGroup("Outline")