05-18-In-class exercises-3

library(leaflet)
m <- leaflet() %>%
 addTiles() %>%  
 addMarkers(lng=120.219722, 
            lat=22.996667, 
            popup="NCKU") %>%  
 addMarkers(lng=120.218722, 
            lat=23.005000, 
            popup="芯恬也breakfast")%>% 
  addMarkers(lng=120.219006, 
            lat=23.005919, 
            popup="老友小吃")%>% 
  addMarkers(lng=120.218944, 
            lat=23.005027, 
            popup="喬貝克炸豚定食")
m