Week 4: Apply 3

Import data

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

## # A tibble: 68,815 × 12
##    fiscal_year month_grouping month_abbv component            land_border_region
##          <dbl> <chr>          <chr>      <chr>                <chr>             
##  1        2020 FYTD           APR        Office of Field Ope… Northern Land Bor…
##  2        2020 FYTD           APR        Office of Field Ope… Northern Land Bor…
##  3        2020 FYTD           APR        Office of Field Ope… Northern Land Bor…
##  4        2020 FYTD           APR        Office of Field Ope… Northern Land Bor…
##  5        2020 FYTD           APR        Office of Field Ope… Northern Land Bor…
##  6        2020 FYTD           APR        Office of Field Ope… Northern Land Bor…
##  7        2020 FYTD           APR        Office of Field Ope… Northern Land Bor…
##  8        2020 FYTD           APR        Office of Field Ope… Northern Land Bor…
##  9        2020 FYTD           APR        Office of Field Ope… Northern Land Bor…
## 10        2020 FYTD           APR        Office of Field Ope… Northern Land Bor…
## # ℹ 68,805 more rows
## # ℹ 7 more variables: area_of_responsibility <chr>, aor_abbv <chr>,
## #   demographic <chr>, citizenship <chr>, title_of_authority <chr>,
## #   encounter_type <chr>, encounter_count <dbl>

Plot data

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