Import data

# excel file
data <- read_excel("../00_data/myData.xlsx")
data
## # A tibble: 21,560 × 12
##     year gnis_id geometry   metad…¹ numbe…² parkn…³ region state unit_…⁴ unit_…⁵
##    <dbl>   <dbl> <chr>      <chr>     <dbl> <chr>   <chr>  <chr> <chr>   <chr>  
##  1  1904 1163670 POLYGON    NA            1 Crater… PW     OR    CRLA    Crater…
##  2  1941 1531834 MULTIPOLY… NA            1 Lake R… PW     WA    LARO    Lake R…
##  3  1961 2055170 MULTIPOLY… NA            1 Lewis … PW     WA    LEWI    Lewis …
##  4  1935 1530459 MULTIPOLY… NA            1 Olympic PW     WA    OLYM    Olympi…
##  5  1982  277263 POLYGON    NA            1 Santa … PW     CA    SAMO    Santa …
##  6  1919  578853 MULTIPOLY… NA            1 NA      NE     ME    ACAD    Acadia…
##  7  1969 1329499 MULTIPOLY… NA            1 NA      IM     TX    AMIS    Amista…
##  8  1967  589056 POLYGON    NA            1 NA      NE     MD    ASIS    Assate…
##  9  1944 1377082 POLYGON    NA            1 NA      IM     TX    BIBE    Big Be…
## 10  1989  302659 POLYGON    NA            1 NA      SE     FL    BICY    Big Cy…
## # … with 21,550 more rows, 2 more variables: unit_type <chr>, visitors <dbl>,
## #   and abbreviated variable names ¹​metadata, ²​number_of_records, ³​parkname,
## #   ⁴​unit_code, ⁵​unit_name

Plot prices

data %>%
    
    ggplot(aes(region, color = region)) +
    geom_bar()

State one Question

Has the number of visits to National parks increased or decreased over the years?

Plot Data

ggplot(data = data) +
    geom_point(mapping = aes(x = year, y = visitors, color = region)) +
    ylim(0,10000000)
## Warning: Removed 492 rows containing missing values (geom_point).

Interpret

According to this graph, it appears the number of visitors to national parks has greatly increased throughout the years. It appears that the number of visitors slowly started to grow in the early 1900s, but around 1950 the number of visitors skyrocketed. I believe this is because accessing transportation became easier and word of mouth along with newer technology made more and more people want to visit.