Untitled

library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

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