Each park is marked by a circle that represents the number of visitors in 2016. Leaflet makes it easy to see which parks are the most popular.

All of the information in this map comes from the wikipedia article https://en.wikipedia.org/wiki/List_of_national_parks_of_the_United_States


R Code (if needed for assignment)

parkscsv <- read.csv("parks5.txt",header=TRUE,sep = ";", stringsAsFactors = FALSE, strip.white = TRUE, colClasses = c("character","character","character","character","character", "numeric","numeric","character","character","numeric","character","character"))
parkscsv$visitors_2016 <- as.numeric(gsub(",", "", parkscsv$visitors_2016)) #removing commas from visitor numbers
parkscsv$date_est <- as.Date(parkscsv$date_est, format= '%B %d, %Y') #change format of date established
parksdf <- as.data.frame(parkscsv)
#parksdf$imgsource <-  paste("<img height=\"420\" width=\"420\"src='", parksdf$image ,"'>",sep = "") 
parksdf$url <- paste("<a href='https://en.wikipedia.org/wiki/",parksdf$name, " '>",parksdf$name,"</a>",sep = "")
library(leaflet)
parksdf %>% 
      leaflet() %>%
      addTiles() %>%
      addCircles(lat = parksdf$lat, lng =parksdf$lng, weight = 1, radius = parksdf$visitors_2016/100,label = parksdf$name, popup = paste (parksdf$url, "<br/>", format(parksdf$visitors_2016,big.mark=",",scientific=FALSE), "Visitors in 2016", "<br/>","Date Established",parksdf$date_est))
##There are extra variables here that did not end up being used for this project