Import data

# excel file
data <- read_excel("data/myData.xlsx")
data
## # A tibble: 2,973 × 10
##    name     state state_code type  degree_length room_and_board in_state_tuition
##    <chr>    <chr> <chr>      <chr> <chr>         <chr>                     <dbl>
##  1 Aaniiih… Mont… MT         Publ… 2 Year        NA                         2380
##  2 Abilene… Texas TX         Priv… 4 Year        10350                     34850
##  3 Abraham… Geor… GA         Publ… 2 Year        8474                       4128
##  4 Academy… Minn… MN         For … 2 Year        NA                        17661
##  5 Academy… Cali… CA         For … 4 Year        16648                     27810
##  6 Adams S… Colo… CO         Publ… 4 Year        8782                       9440
##  7 Adelphi… New … NY         Priv… 4 Year        16030                     38660
##  8 Adirond… New … NY         Publ… 2 Year        11660                      5375
##  9 Adrian … Mich… MI         Priv… 4 Year        11318                     37087
## 10 Advance… Virg… VA         For … 2 Year        NA                        13680
## # ℹ 2,963 more rows
## # ℹ 3 more variables: in_state_total <dbl>, out_of_state_tuition <dbl>,
## #   out_of_state_total <dbl>

Plot data

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