518exercise3

## 餐廳1
library(leaflet)
m <- leaflet() %>%
 addTiles() %>%  
 addMarkers(lng= 120.191840, 
            lat= 23.011230, 
            popup="逐鹿燒肉")
m

## 餐廳2
library(leaflet)
m <- leaflet() %>%
 addTiles() %>%  
 addMarkers(lng= 120.232498, 
            lat= 23.022204, 
            popup="魚小璐和洋廚房")
m

## 餐廳3
library(leaflet)
m <- leaflet() %>%
 addTiles() %>%  
 addMarkers(lng= 120.233367, 
            lat= 23.019468, 
            popup="金田食堂")
m