Import data

# excel file
month <- read_excel("../00_data/My_Data.xlsx")
month
## # A tibble: 12 × 4
##    `NHL Player Birth Months`  ...2 `Row Labels` `Sum of births`
##    <chr>                     <dbl> <chr>                  <dbl>
##  1 January:                     71 January               413782
##  2 March:                       57 March                 462782
##  3 April:                       59 April                 458542
##  4 May:                         74 May                   469812
##  5 June:                        50 June                  452793
##  6 July:                        55 July                  464563
##  7 August:                      41 August                449111
##  8 September:                   30 September             427627
##  9 October:                     29 October               412100
## 10 November:                    25 November              373323
## 11 December:                    32 December              376415
## 12 February:                    72 Februrary             409899

State one question

Are Canadian NHL Player Birth Dates from the TideyTuesday project to investigate are birthdates still destine for Canadian NHL Players?

Plot data

ggplot(data = month) +
  geom_bar(mapping = aes(x = `NHL Player Birth Months`, y = ...2), stat = "identity")

Interpret

There seems to be preliminary edvidence that there are certain birth months that are destine for NHL players.