Introduction

Mapped below you will find some of the top National Parks on my hiking goal list.

Data Preparation

During this pandemic, a nice escape to the great out doors is highly sought after. I compiled a list of a few National Parks I would like to vist, and their latitude and logitude coordinates. On this attempt I tried to include some photos found on their websites along with my personal photos, which only my engagement picture at Zion loaded.

NP <- read.csv("C:/Users/Savanna.DESKTOP-0OJMFCH/Desktop/Statistics/R Summer 2020/NP.csv")
str(NP)
## 'data.frame':    10 obs. of  4 variables:
##  $ National.Park: Factor w/ 10 levels "Arches National Park",..: 1 2 3 4 5 6 7 8 9 10
##  $ Latitude     : num  38.7 37.6 48.7 36.1 43.7 ...
##  $ Longitude    : num  -110 -112 -114 -112 -111 ...
##  $ Picture      : Factor w/ 10 levels "<img src=\"https://img.sunset02.com/sites/default/files/styles/marquee_large_2x/public/image/2016/06/main/yello"| __truncated__,..: 7 5 8 10 6 9 3 1 4 2
data(NP)
## Warning in data(NP): data set 'NP' not found
library(leaflet)
## Warning: package 'leaflet' was built under R version 3.6.3
library(sp)
## Warning: package 'sp' was built under R version 3.6.3
leaflet(data = NP, width="100%", height=300) %>%
  addTiles() %>% 
  addMarkers(lat= NP$Latitude, lng= NP$Longitude,  popup= paste(NP$National.Park, NP$Picture))