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