LaidlawAudreaChenFuzhouneseRestaurantsandStores

library(dplyr) library(leaflet) library(ggmap)

places_geo <- places_geo %>% mutate(index = row_number())

m <- leaflet(places_geo) %>% addTiles() %>% addCircleMarkers( ~longitude, ~latitude, label = ~paste0(index, “:”, name), # Hover label shows index + name popup = ~paste0(“”, index, “.”, name, “
”, address), # Popup radius = 5, color = “red”, fillOpacity = 0.8 ) %>% addPolylines(~longitude, ~latitude, color = “red”, weight = 2) %>% addControl( html = paste0( “Restaurant List
”, paste(places_geo\(index, places_geo\)name, sep=“.”, collapse=“
”) ), position = “topright” )

m