Week 4: Apply 3

Import data

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

## # A tibble: 216 × 12
##    country       date_parsed weekday day   month name_of_holiday date_of_holiday
##    <chr>         <chr>       <chr>   <chr> <chr> <chr>           <chr>          
##  1 Afghanistan   7171        Tuesday 19    Aug   Afghan Indepen… 45523          
##  2 Albania       4716        Thursd… 28    Nov   Flag Day (Dita… 45624          
##  3 Algeria       22832       Thursd… 5     Jul   Independence D… 45478          
##  4 Andorra       NA          NA      NA    NA    None            <NA>           
##  5 Angola        27709       Tuesday 11    Nov   Independence D… 45607          
##  6 Antigua and … 29891       Sunday  1     Nov   Independence D… 45597          
##  7 Argentina     1816-07-09  Tuesday 9     Jul   Independence D… 45482          
##  8 Armenia       6723        Tuesday 28    May   Republic Day    45440          
##  9 Armenia       33502       Saturd… 21    Sep   Independence D… 45556          
## 10 Australia     NA          NA      NA    NA    None            <NA>           
## # ℹ 206 more rows
## # ℹ 5 more variables: year_of_event <chr>, independence_from <chr>,
## #   event_commemorated_and_notes <chr>, year <chr>, date_mdy <chr>

Plot data

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