Week 4: Apply 3

Import data

# excel file
data <- read_excel("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)) +
    geom_bar()