Week 4: Apply 3

Import data

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

## # A tibble: 8,474 × 9
##    player_id first_name last_name    birth_date birth_city     birth_country
##        <dbl> <chr>      <chr>        <chr>      <chr>          <chr>        
##  1   8467867 Bryan      Adams        1977-03-20 Fort St. James CAN          
##  2   8445176 Donald     Audette      1969-09-23 Laval          CAN          
##  3   8460014 Eric       Bertrand     1975-04-16 St-Ephrem      CAN          
##  4   8460510 Jason      Botterill    1976-05-19 Edmonton       CAN          
##  5   8459596 Andrew     Brunette     1973-08-24 Sudbury        CAN          
##  6   8445733 Kelly      Buchberger   1966-12-02 Langenburg     CAN          
##  7   8460573 Hnat       Domenichelli 1976-02-17 Edmonton       CAN          
##  8   8459450 Shean      Donovan      1975-01-22 Timmins        CAN          
##  9   8446675 Nelson     Emerson      1967-08-17 Hamilton       CAN          
## 10   8446823 Ray        Ferraro      1964-08-23 Trail          CAN          
## # ℹ 8,464 more rows
## # ℹ 3 more variables: birth_state_province <chr>, birth_year <dbl>,
## #   birth_month <dbl>

Plot data

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