National Park Goals

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.

NationalParks <- read.csv("C:/Users/Savanna.DESKTOP-0OJMFCH/Desktop/Statistics/R Summer 2020/National Parks.csv")
str(NationalParks)

## 'data.frame':    10 obs. of  3 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 ...

data(NationalParks)

## Warning in data(NationalParks): data set 'NationalParks' 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 = NationalParks, width="100%", height=300) %>%
  addTiles() %>% 
  addMarkers(lat= ~Latitude, lng= ~Longitude,  popup= ~National.Park)