Let me show you a map using leaflet

library(leaflet)
m_map <- leaflet() %>% addTiles()   
m_map <- m_map %>% addMarkers(lat= 23.47000, lng= 120.95727, popup="Mount Jade Main Peak, Taiwan")
m_map