Week 4: Apply 3

Import data

# excel file
data <- read_excel("C:/Users/jessi/OneDrive - USNH/PSU_DAT3000_IntroToDa/01_module4/data/My Data_charts.xlsx", 
    sheet = "Total Employed by State")
data

## # A tibble: 3,434 × 7
##    STATE   RACE  TYPE  `ALL WORKERS` ARTISTS `ARTISTS SHARE` `LOCATION QUOTIENT`
##    <chr>   <chr> <chr>         <dbl> <chr>   <chr>           <chr>              
##  1 Alabama Afri… Acto…        581200 30      5.161734342739… 0.12670159687726373
##  2 Alabama Afri… Anno…        581200 265     4.559532002752… 1.0410684730034387 
##  3 Alabama Afri… Arch…        581200 NA      NA              NA                 
##  4 Alabama Afri… Danc…        581200 0       NA              NA                 
##  5 Alabama Afri… Desi…        581200 385     6.624225739848… 0.3065291344871363 
##  6 Alabama Afri… Ente…        581200 60      1.032346868547… 0.366689327433022  
##  7 Alabama Afri… Fine…        581200 80      1.376462491397… 0.2869121662690666 
##  8 Alabama Afri… Land…        581200 NA      NA              NA                 
##  9 Alabama Afri… Musi…        581200 165     2.838953888506… 1.0394376807249026 
## 10 Alabama Afri… Musi…        581200 440     7.570543702684… 0.6812026249347979 
## # ℹ 3,424 more rows

Plot data

data %>%
    
    ggplot(aes(`STATE`)) +
    geom_bar()