Data Products - Assignment Week 2

Three Museums to Visit in New York - August 21, 2019

library(leaflet)
df<-data.frame(Long = c(-73.963364, -73.958959, -73.972942), Lat = c(40.779444, 40.783000, 40.780889), Name = c("The Metropolitan Museum of Art", "The Guggenheim Museum", "The Museum of Natural History"))
map <- leaflet(df) %>%
  addTiles() %>%
  addMarkers(label = ~as.character(df$Name), labelOptions = labelOptions(noHide = T))

## Assuming "Long" and "Lat" are longitude and latitude, respectively

map