National Parks Explorer

library(leaflet)

# Create data for parks
parks <- data.frame(
  name = c("Yellowstone", "Yosemite", "Grand Canyon", "Zion", "Acadia", "Everglades"),
  lat = c(44.4280, 37.8651, 36.1069, 37.2982, 44.3386, 25.2867),
  lng = c(-110.5885, -119.5383, -112.1129, -113.0263, -68.2733, -80.8987),
  year = c(1872, 1890, 1919, 1919, 1919, 1934)
)

# Create the map
leaflet(parks) %>%
  addTiles() %>%
  setView(lng = -100, lat = 40, zoom = 4) %>%
  addMarkers(
    lng = ~lng, 
    lat = ~lat,
    popup = ~paste("<b>", name, "National Park</b><br>Established:", year)
  )