This interactive map was created on 2025-09-19 and showcases the heart of New York City using the Leaflet package in R.
icon <- makeIcon(
iconUrl = "https://upload.wikimedia.org/wikipedia/commons/e/ec/RedDot.svg",
iconWidth = 20, iconHeight = 20
)
leaflet() %>%
addTiles() %>%
setView(lng = -74.0060, lat = 40.7128, zoom = 12) %>%
addMarkers(lng = -73.9857, lat = 40.7484, popup = "Empire State Building", icon = icon) %>%
addMarkers(lng = -73.9772, lat = 40.7527, popup = "Grand Central Terminal") %>%
addMarkers(lng = -73.9680, lat = 40.7851, popup = "Central Park") %>%
addMarkers(lng = -74.0445, lat = 40.6892, popup = "Statue of Liberty") %>%
addCircles(lng = -73.9680, lat = 40.7851, radius = 500, color = "green", popup = "Central Park")