Module 4: Apply 3

Import data

# excel file
data <- read_excel("data/NH Public Schools Data.xlsx")
data

## # A tibble: 211 × 9
##    CITY     STATE COUNTY      `SCHOOL LEVEL` POPULATION ENROLLMENT `START GRADE`
##    <chr>    <chr> <chr>       <chr>               <dbl>      <dbl> <chr>        
##  1 ACWORTH  NH    SULLIVAN C… Primary                29         27 1            
##  2 ALSTEAD  NH    CHESHIRE C… Primary               109         99 PK           
##  3 ALSTEAD  NH    CHESHIRE C… Middle                135        125 5            
##  4 ALTON    NH    BELKNAP CO… High                  571        526 9            
##  5 ALTON    NH    BELKNAP CO… Primary               582        538 PK           
##  6 ANTRIM   NH    HILLSBOROU… Primary               181        167 PK           
##  7 ANTRIM   NH    HILLSBOROU… Middle                319        289 5            
##  8 ASHLAND  NH    GRAFTON CO… Primary               191        175 KG           
##  9 BARTLETT NH    CARROLL CO… Primary               297        270 KG           
## 10 BATH     NH    GRAFTON CO… Primary                66         58 KG           
## # ℹ 201 more rows
## # ℹ 2 more variables: `END GRADE` <chr>, `NOT ENROLLED` <dbl>

Plot data

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