Week 4: Apply 3

Import data

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

## # A tibble: 87 × 9
##    `Year  ` Winner       Score `Runner-Up` `Third Place` `Fourth Place` Location
##       <dbl> <chr>        <chr> <chr>       <chr>         <chr>          <chr>   
##  1     2025 <NA>         <NA>  <NA>        <NA>          <NA>           San Ant…
##  2     2024 UConn        75-60 Purdue      *Alabama      *NC State      Phoenix 
##  3     2023 UConn        76-59 San Diego … *Miami (FL)   *Florida Atla… Houston 
##  4     2022 Kansas       72-69 North Caro… *Villanova    *Duke          New Orl…
##  5     2021 Baylor       86-70 Gonzaga     *Houston      *UCLA          Indiana…
##  6     2020 <NA>         <NA>  Cancelled … <NA>          <NA>           <NA>    
##  7     2019 Virginia     85-7… Texas Tech  *Auburn       *Michigan St.  Minneap…
##  8     2018 Villanova    79-62 Michigan    *Kansas       *Loyola-Chica… San Ant…
##  9     2017 North Carol… 71-65 Gonzaga     *Oregon       *South Caroli… Phoenix 
## 10     2016 Villanova    77-74 North Caro… *Oklahoma     *Syracuse      Houston 
## # ℹ 77 more rows
## # ℹ 2 more variables: `Most Outstanding Player` <chr>, `Winning Coach` <chr>

Plot data

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