Week 4: Apply 3

Import data

excel file

data <- read_excel("data/My Data.xlsx")

## New names:
## • `` -> `...12`
## • `` -> `...13`
## • `` -> `...14`

data

## # A tibble: 605 × 14
##     Year    ID `General Category`    `Specific Category` Voter `Additional Info`
##    <dbl> <dbl> <chr>                 <chr>               <chr> <chr>            
##  1  2003   485 Artist, Songwriter, … Artist              Davi… Composer         
##  2  2003   372 Industry              Music Executive     Haro… Founded Rhino Re…
##  3  2003   345 Industry              Music Executive     Dick… Former CEO of Po…
##  4  2003   604 Industry              <NA>                Howa… Howlin Wuelf Med…
##  5  2003   371 Journalists/Writers   Music Journalist    Jon … Critic Minneapol…
##  6  2003   551 Journalists/Writers   <NA>                Andy… Researcher-archi…
##  7  2003   459 Journalists/Writers   Music Journalist    Davi… Critic New York …
##  8  2020   294 Journalists/Writers   Journalists         Dann… <NA>             
##  9  2003   587 Industry              <NA>                Phil… President, Veloc…
## 10  2020   221 Industry              Industry            Edga… Atlantic Records 
## # ℹ 595 more rows
## # ℹ 8 more variables: `Pronouns/Gender` <chr>, Image <chr>,
## #   `Estimated Birthyear` <chr>, `Age at Vote` <chr>, `Teenage Decade` <chr>,
## #   ...12 <dbl>, ...13 <chr>, ...14 <dbl>

Plot data

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