Week 7: Apply it to your data 6

data %>%
    select(Opponent) %>%
    
    # Extract home (vs) away game (@)
    mutate(home_away = if_else(str_detect(Opponent, "@"), "Away", "Home")) %>%
    
    # Extract team PSU played againt
    mutate(Opponent_clean = Opponent %>% str_remove("(@|vs) "))

## # A tibble: 77 × 3
##    Opponent                                             home_away Opponent_clean
##    <chr>                                                <chr>     <chr>         
##  1 vs Plymouth State - Black                            Home      Plymouth Stat…
##  2 @ Salem State Univ.                                  Away      Salem State U…
##  3 vs Framingham State Rams                             Home      Framingham St…
##  4 @ Rivier University Raiders                          Away      Rivier Univer…
##  5 vs Massachusetts College of Liberal Arts Trailblaze… Home      Massachusetts…
##  6 @ Hamilton Continentals                              Away      Hamilton Cont…
##  7 vs Fitchburg State Falcons                           Home      Fitchburg Sta…
##  8 @ University of New England Nor'easters              Away      University of…
##  9 @ Worcester State Lancers                            Away      Worcester Sta…
## 10 vs Fitchburg State Falcons                           Home      Fitchburg Sta…
## # ℹ 67 more rows