title: “My Top 5 Favorite Baltimore Restaurants” author: “Kathleen” date: “March 5, 2019” output: html_document —

My Top 5 Favorite Baltimore Restaurants

March 5, 2019

library(leaflet)
df<- data.frame(lat=c(39.3314119,39.283431,39.3203436,39.34446,39.2859981), lng=c(-76.6302982,-76.5928459,-76.6196093,-76.6314823,-76.6019075))
df %>%
leaflet() %>%
  addTiles() %>%
  addMarkers(popup = c("Danielas","Papis Tacos","Sweet 27", "Miss Shirleys", "Aldos"))

df

##        lat       lng
## 1 39.33141 -76.63030
## 2 39.28343 -76.59285
## 3 39.32034 -76.61961
## 4 39.34446 -76.63148
## 5 39.28600 -76.60191