US Natural Parks

library(leaflet)
library(dplyr)

data <- read.csv("park_coords.csv")

coords <- data %>%
        select(Latitude, Longitude)

names <- gsub(",.*$", "",data[, 1])

coords %>%
        leaflet() %>%
        addTiles() %>%
        addMarkers(popup = names, clusterOptions = markerClusterOptions())

Acknoweldgements

Data sourced from: https://www.latlong.net/category/national-parks-236-42.html