Week 4: Apply 3

Import data

# excel file
data <- read_excel("data/NationoalParkSpecies1.xlsx")
data

## # A tibble: 1,709 × 28
##    ParkCode ParkName         CategoryName Order Family TaxonRecordStatus SciName
##    <chr>    <chr>            <chr>        <chr> <chr>  <chr>             <chr>  
##  1 ACAD     Acadia National… Mammal       Arti… Cervi… Active            Alces …
##  2 ACAD     Acadia National… Mammal       Arti… Cervi… Active            Odocoi…
##  3 ACAD     Acadia National… Mammal       Carn… Canid… Active            Canis …
##  4 ACAD     Acadia National… Mammal       Carn… Canid… Active            Canis …
##  5 ACAD     Acadia National… Mammal       Carn… Canid… Active            Vulpes…
##  6 ACAD     Acadia National… Mammal       Carn… Felid… Active            Lynx c…
##  7 ACAD     Acadia National… Mammal       Carn… Felid… Active            Lynx r…
##  8 ACAD     Acadia National… Mammal       Carn… Mephi… Active            Mephit…
##  9 ACAD     Acadia National… Mammal       Carn… Muste… Active            Lutra …
## 10 ACAD     Acadia National… Mammal       Carn… Muste… Active            Martes…
## # ℹ 1,699 more rows
## # ℹ 21 more variables: CommonNames <chr>, Synonyms <lgl>, ParkAccepted <lgl>,
## #   Sensitive <lgl>, RecordStatus <chr>, Occurrence <chr>,
## #   OccurrenceTags <chr>, Nativeness <chr>, NativenessTags <chr>,
## #   Abundance <chr>, NPSTags <chr>, ParkTags <chr>, References <dbl>,
## #   Observations <dbl>, Vouchers <dbl>, ExternalLinks <chr>, TEStatus <chr>,
## #   StateStatus <chr>, OzoneSensitiveStatus <chr>, GRank <chr>, SRank <chr>

Plot data

data %>%
    
    ggplot(aes(Occurrence)) +
    geom_bar()