Import Data

# excel filer
games <- read_excel("../00_data/MyData_charts.xlsx")
games
## # A tibble: 988 × 15
##     year country city    stage home_team away_team home_score away_score outcome
##    <dbl> <chr>   <chr>   <chr> <chr>     <chr>          <dbl>      <dbl> <chr>  
##  1  1930 Uruguay Montev… Grou… France    Mexico             4          1 H      
##  2  1930 Uruguay Montev… Grou… Belgium   United S…          0          3 A      
##  3  1930 Uruguay Montev… Grou… Brazil    Yugoslav…          1          2 A      
##  4  1930 Uruguay Montev… Grou… Peru      Romania            1          3 A      
##  5  1930 Uruguay Montev… Grou… Argentina France             1          0 H      
##  6  1930 Uruguay Montev… Grou… Chile     Mexico             3          0 H      
##  7  1930 Uruguay Montev… Grou… Bolivia   Yugoslav…          0          4 A      
##  8  1930 Uruguay Montev… Grou… Paraguay  United S…          0          3 A      
##  9  1930 Uruguay Montev… Grou… Uruguay   Peru               1          0 H      
## 10  1930 Uruguay Montev… Grou… Argentina Mexico             6          3 H      
## # ℹ 978 more rows
## # ℹ 6 more variables: win_conditions <chr>, winning_team <chr>,
## #   losing_team <chr>, date <dttm>, month <chr>, dayofweek <chr>
## Clean Data
games1 <- na.omit(games[, c("year", "country", "city", "stage", "home_team", "away_team", "home_score", "away_score", "outcome", "winning_team", "losing_team", "date", "month", "dayofweek")])
games1
## # A tibble: 900 × 14
##     year country city    stage home_team away_team home_score away_score outcome
##    <dbl> <chr>   <chr>   <chr> <chr>     <chr>          <dbl>      <dbl> <chr>  
##  1  1930 Uruguay Montev… Grou… France    Mexico             4          1 H      
##  2  1930 Uruguay Montev… Grou… Belgium   United S…          0          3 A      
##  3  1930 Uruguay Montev… Grou… Brazil    Yugoslav…          1          2 A      
##  4  1930 Uruguay Montev… Grou… Peru      Romania            1          3 A      
##  5  1930 Uruguay Montev… Grou… Argentina France             1          0 H      
##  6  1930 Uruguay Montev… Grou… Chile     Mexico             3          0 H      
##  7  1930 Uruguay Montev… Grou… Bolivia   Yugoslav…          0          4 A      
##  8  1930 Uruguay Montev… Grou… Paraguay  United S…          0          3 A      
##  9  1930 Uruguay Montev… Grou… Uruguay   Peru               1          0 H      
## 10  1930 Uruguay Montev… Grou… Argentina Mexico             6          3 H      
## # ℹ 890 more rows
## # ℹ 5 more variables: winning_team <chr>, losing_team <chr>, date <dttm>,
## #   month <chr>, dayofweek <chr>

Chapter 14

Tools

Detect matches

games1$country
##   [1] "Uruguay"       "Uruguay"       "Uruguay"       "Uruguay"      
##   [5] "Uruguay"       "Uruguay"       "Uruguay"       "Uruguay"      
##   [9] "Uruguay"       "Uruguay"       "Uruguay"       "Uruguay"      
##  [13] "Uruguay"       "Uruguay"       "Uruguay"       "Uruguay"      
##  [17] "Uruguay"       "Uruguay"       "Italy"         "Italy"        
##  [21] "Italy"         "Italy"         "Italy"         "Italy"        
##  [25] "Italy"         "Italy"         "Italy"         "Italy"        
##  [29] "Italy"         "Italy"         "Italy"         "Italy"        
##  [33] "Italy"         "Italy"         "Italy"         "France"       
##  [37] "France"        "France"        "France"        "France"       
##  [41] "France"        "France"        "France"        "France"       
##  [45] "France"        "France"        "France"        "France"       
##  [49] "France"        "France"        "France"        "France"       
##  [53] "France"        "Brazil"        "Brazil"        "Brazil"       
##  [57] "Brazil"        "Brazil"        "Brazil"        "Brazil"       
##  [61] "Brazil"        "Brazil"        "Brazil"        "Brazil"       
##  [65] "Brazil"        "Brazil"        "Brazil"        "Brazil"       
##  [69] "Brazil"        "Brazil"        "Brazil"        "Brazil"       
##  [73] "Brazil"        "Brazil"        "Brazil"        "Switzerland"  
##  [77] "Switzerland"   "Switzerland"   "Switzerland"   "Switzerland"  
##  [81] "Switzerland"   "Switzerland"   "Switzerland"   "Switzerland"  
##  [85] "Switzerland"   "Switzerland"   "Switzerland"   "Switzerland"  
##  [89] "Switzerland"   "Switzerland"   "Switzerland"   "Switzerland"  
##  [93] "Switzerland"   "Switzerland"   "Switzerland"   "Switzerland"  
##  [97] "Switzerland"   "Switzerland"   "Switzerland"   "Switzerland"  
## [101] "Switzerland"   "Sweden"        "Sweden"        "Sweden"       
## [105] "Sweden"        "Sweden"        "Sweden"        "Sweden"       
## [109] "Sweden"        "Sweden"        "Sweden"        "Sweden"       
## [113] "Sweden"        "Sweden"        "Sweden"        "Sweden"       
## [117] "Sweden"        "Sweden"        "Sweden"        "Sweden"       
## [121] "Sweden"        "Sweden"        "Sweden"        "Sweden"       
## [125] "Sweden"        "Sweden"        "Sweden"        "Sweden"       
## [129] "Sweden"        "Sweden"        "Sweden"        "Sweden"       
## [133] "Sweden"        "Sweden"        "Sweden"        "Sweden"       
## [137] "Chile"         "Chile"         "Chile"         "Chile"        
## [141] "Chile"         "Chile"         "Chile"         "Chile"        
## [145] "Chile"         "Chile"         "Chile"         "Chile"        
## [149] "Chile"         "Chile"         "Chile"         "Chile"        
## [153] "Chile"         "Chile"         "Chile"         "Chile"        
## [157] "Chile"         "Chile"         "Chile"         "Chile"        
## [161] "Chile"         "Chile"         "Chile"         "Chile"        
## [165] "Chile"         "Chile"         "Chile"         "Chile"        
## [169] "England"       "England"       "England"       "England"      
## [173] "England"       "England"       "England"       "England"      
## [177] "England"       "England"       "England"       "England"      
## [181] "England"       "England"       "England"       "England"      
## [185] "England"       "England"       "England"       "England"      
## [189] "England"       "England"       "England"       "England"      
## [193] "England"       "England"       "England"       "England"      
## [197] "England"       "England"       "England"       "England"      
## [201] "Mexico"        "Mexico"        "Mexico"        "Mexico"       
## [205] "Mexico"        "Mexico"        "Mexico"        "Mexico"       
## [209] "Mexico"        "Mexico"        "Mexico"        "Mexico"       
## [213] "Mexico"        "Mexico"        "Mexico"        "Mexico"       
## [217] "Mexico"        "Mexico"        "Mexico"        "Mexico"       
## [221] "Mexico"        "Mexico"        "Mexico"        "Mexico"       
## [225] "Mexico"        "Mexico"        "Mexico"        "Mexico"       
## [229] "Mexico"        "Mexico"        "Mexico"        "Mexico"       
## [233] "Germany"       "Germany"       "Germany"       "Germany"      
## [237] "Germany"       "Germany"       "Germany"       "Germany"      
## [241] "Germany"       "Germany"       "Germany"       "Germany"      
## [245] "Germany"       "Germany"       "Germany"       "Germany"      
## [249] "Germany"       "Germany"       "Germany"       "Germany"      
## [253] "Germany"       "Germany"       "Germany"       "Germany"      
## [257] "Germany"       "Germany"       "Germany"       "Germany"      
## [261] "Germany"       "Germany"       "Germany"       "Germany"      
## [265] "Germany"       "Germany"       "Germany"       "Germany"      
## [269] "Germany"       "Germany"       "Argentina"     "Argentina"    
## [273] "Argentina"     "Argentina"     "Argentina"     "Argentina"    
## [277] "Argentina"     "Argentina"     "Argentina"     "Argentina"    
## [281] "Argentina"     "Argentina"     "Argentina"     "Argentina"    
## [285] "Argentina"     "Argentina"     "Argentina"     "Argentina"    
## [289] "Argentina"     "Argentina"     "Argentina"     "Argentina"    
## [293] "Argentina"     "Argentina"     "Argentina"     "Argentina"    
## [297] "Argentina"     "Argentina"     "Argentina"     "Argentina"    
## [301] "Argentina"     "Argentina"     "Argentina"     "Argentina"    
## [305] "Argentina"     "Argentina"     "Argentina"     "Argentina"    
## [309] "Spain"         "Spain"         "Spain"         "Spain"        
## [313] "Spain"         "Spain"         "Spain"         "Spain"        
## [317] "Spain"         "Spain"         "Spain"         "Spain"        
## [321] "Spain"         "Spain"         "Spain"         "Spain"        
## [325] "Spain"         "Spain"         "Spain"         "Spain"        
## [329] "Spain"         "Spain"         "Spain"         "Spain"        
## [333] "Spain"         "Spain"         "Spain"         "Spain"        
## [337] "Spain"         "Spain"         "Spain"         "Spain"        
## [341] "Spain"         "Spain"         "Spain"         "Spain"        
## [345] "Spain"         "Spain"         "Spain"         "Spain"        
## [349] "Spain"         "Spain"         "Spain"         "Spain"        
## [353] "Spain"         "Spain"         "Spain"         "Spain"        
## [357] "Spain"         "Spain"         "Spain"         "Spain"        
## [361] "Mexico"        "Mexico"        "Mexico"        "Mexico"       
## [365] "Mexico"        "Mexico"        "Mexico"        "Mexico"       
## [369] "Mexico"        "Mexico"        "Mexico"        "Mexico"       
## [373] "Mexico"        "Mexico"        "Mexico"        "Mexico"       
## [377] "Mexico"        "Mexico"        "Mexico"        "Mexico"       
## [381] "Mexico"        "Mexico"        "Mexico"        "Mexico"       
## [385] "Mexico"        "Mexico"        "Mexico"        "Mexico"       
## [389] "Mexico"        "Mexico"        "Mexico"        "Mexico"       
## [393] "Mexico"        "Mexico"        "Mexico"        "Mexico"       
## [397] "Mexico"        "Mexico"        "Mexico"        "Mexico"       
## [401] "Mexico"        "Mexico"        "Mexico"        "Mexico"       
## [405] "Mexico"        "Mexico"        "Mexico"        "Mexico"       
## [409] "Mexico"        "Mexico"        "Mexico"        "Mexico"       
## [413] "Italy"         "Italy"         "Italy"         "Italy"        
## [417] "Italy"         "Italy"         "Italy"         "Italy"        
## [421] "Italy"         "Italy"         "Italy"         "Italy"        
## [425] "Italy"         "Italy"         "Italy"         "Italy"        
## [429] "Italy"         "Italy"         "Italy"         "Italy"        
## [433] "Italy"         "Italy"         "Italy"         "Italy"        
## [437] "Italy"         "Italy"         "Italy"         "Italy"        
## [441] "Italy"         "Italy"         "Italy"         "Italy"        
## [445] "Italy"         "Italy"         "Italy"         "Italy"        
## [449] "Italy"         "Italy"         "Italy"         "Italy"        
## [453] "Italy"         "Italy"         "Italy"         "Italy"        
## [457] "Italy"         "Italy"         "Italy"         "Italy"        
## [461] "Italy"         "Italy"         "Italy"         "Italy"        
## [465] "United States" "United States" "United States" "United States"
## [469] "United States" "United States" "United States" "United States"
## [473] "United States" "United States" "United States" "United States"
## [477] "United States" "United States" "United States" "United States"
## [481] "United States" "United States" "United States" "United States"
## [485] "United States" "United States" "United States" "United States"
## [489] "United States" "United States" "United States" "United States"
## [493] "United States" "United States" "United States" "United States"
## [497] "United States" "United States" "United States" "United States"
## [501] "United States" "United States" "United States" "United States"
## [505] "United States" "United States" "United States" "United States"
## [509] "United States" "United States" "United States" "United States"
## [513] "United States" "United States" "United States" "United States"
## [517] "France"        "France"        "France"        "France"       
## [521] "France"        "France"        "France"        "France"       
## [525] "France"        "France"        "France"        "France"       
## [529] "France"        "France"        "France"        "France"       
## [533] "France"        "France"        "France"        "France"       
## [537] "France"        "France"        "France"        "France"       
## [541] "France"        "France"        "France"        "France"       
## [545] "France"        "France"        "France"        "France"       
## [549] "France"        "France"        "France"        "France"       
## [553] "France"        "France"        "France"        "France"       
## [557] "France"        "France"        "France"        "France"       
## [561] "France"        "France"        "France"        "France"       
## [565] "France"        "France"        "France"        "France"       
## [569] "France"        "France"        "France"        "France"       
## [573] "France"        "France"        "France"        "France"       
## [577] "France"        "France"        "France"        "France"       
## [581] "South Korea"   "Japan"         "Japan"         "South Korea"  
## [585] "Japan"         "Japan"         "South Korea"   "South Korea"  
## [589] "South Korea"   "Japan"         "Japan"         "South Korea"  
## [593] "Japan"         "South Korea"   "Japan"         "Japan"        
## [597] "South Korea"   "Japan"         "South Korea"   "South Korea"  
## [601] "Japan"         "South Korea"   "Japan"         "South Korea"  
## [605] "Japan"         "South Korea"   "South Korea"   "Japan"        
## [609] "Japan"         "South Korea"   "South Korea"   "Japan"        
## [613] "Japan"         "South Korea"   "Japan"         "South Korea"  
## [617] "Japan"         "South Korea"   "South Korea"   "Japan"        
## [621] "South Korea"   "Japan"         "Japan"         "South Korea"  
## [625] "Japan"         "Japan"         "South Korea"   "South Korea"  
## [629] "Japan"         "South Korea"   "South Korea"   "Japan"        
## [633] "Japan"         "South Korea"   "Japan"         "South Korea"  
## [637] "Japan"         "South Korea"   "South Korea"   "Japan"        
## [641] "South Korea"   "Japan"         "South Korea"   "Japan"        
## [645] "Germany"       "Germany"       "Germany"       "Germany"      
## [649] "Germany"       "Germany"       "Germany"       "Germany"      
## [653] "Germany"       "Germany"       "Germany"       "Germany"      
## [657] "Germany"       "Germany"       "Germany"       "Germany"      
## [661] "Germany"       "Germany"       "Germany"       "Germany"      
## [665] "Germany"       "Germany"       "Germany"       "Germany"      
## [669] "Germany"       "Germany"       "Germany"       "Germany"      
## [673] "Germany"       "Germany"       "Germany"       "Germany"      
## [677] "Germany"       "Germany"       "Germany"       "Germany"      
## [681] "Germany"       "Germany"       "Germany"       "Germany"      
## [685] "Germany"       "Germany"       "Germany"       "Germany"      
## [689] "Germany"       "Germany"       "Germany"       "Germany"      
## [693] "Germany"       "Germany"       "Germany"       "Germany"      
## [697] "Germany"       "Germany"       "Germany"       "Germany"      
## [701] "Germany"       "Germany"       "Germany"       "Germany"      
## [705] "Germany"       "Germany"       "Germany"       "Germany"      
## [709] "South Africa"  "South Africa"  "South Africa"  "South Africa" 
## [713] "South Africa"  "South Africa"  "South Africa"  "South Africa" 
## [717] "South Africa"  "South Africa"  "South Africa"  "South Africa" 
## [721] "South Africa"  "South Africa"  "South Africa"  "South Africa" 
## [725] "South Africa"  "South Africa"  "South Africa"  "South Africa" 
## [729] "South Africa"  "South Africa"  "South Africa"  "South Africa" 
## [733] "South Africa"  "South Africa"  "South Africa"  "South Africa" 
## [737] "South Africa"  "South Africa"  "South Africa"  "South Africa" 
## [741] "South Africa"  "South Africa"  "South Africa"  "South Africa" 
## [745] "South Africa"  "South Africa"  "South Africa"  "South Africa" 
## [749] "South Africa"  "South Africa"  "South Africa"  "South Africa" 
## [753] "South Africa"  "South Africa"  "South Africa"  "South Africa" 
## [757] "South Africa"  "South Africa"  "South Africa"  "South Africa" 
## [761] "South Africa"  "South Africa"  "South Africa"  "South Africa" 
## [765] "South Africa"  "South Africa"  "South Africa"  "South Africa" 
## [769] "South Africa"  "South Africa"  "South Africa"  "South Africa" 
## [773] "Brazil"        "Brazil"        "Brazil"        "Brazil"       
## [777] "Brazil"        "Brazil"        "Brazil"        "Brazil"       
## [781] "Brazil"        "Brazil"        "Brazil"        "Brazil"       
## [785] "Brazil"        "Brazil"        "Brazil"        "Brazil"       
## [789] "Brazil"        "Brazil"        "Brazil"        "Brazil"       
## [793] "Brazil"        "Brazil"        "Brazil"        "Brazil"       
## [797] "Brazil"        "Brazil"        "Brazil"        "Brazil"       
## [801] "Brazil"        "Brazil"        "Brazil"        "Brazil"       
## [805] "Brazil"        "Brazil"        "Brazil"        "Brazil"       
## [809] "Brazil"        "Brazil"        "Brazil"        "Brazil"       
## [813] "Brazil"        "Brazil"        "Brazil"        "Brazil"       
## [817] "Brazil"        "Brazil"        "Brazil"        "Brazil"       
## [821] "Brazil"        "Brazil"        "Brazil"        "Brazil"       
## [825] "Brazil"        "Brazil"        "Brazil"        "Brazil"       
## [829] "Brazil"        "Brazil"        "Brazil"        "Brazil"       
## [833] "Brazil"        "Brazil"        "Brazil"        "Brazil"       
## [837] "Russia"        "Russia"        "Russia"        "Russia"       
## [841] "Russia"        "Russia"        "Russia"        "Russia"       
## [845] "Russia"        "Russia"        "Russia"        "Russia"       
## [849] "Russia"        "Russia"        "Russia"        "Russia"       
## [853] "Russia"        "Russia"        "Russia"        "Russia"       
## [857] "Russia"        "Russia"        "Russia"        "Russia"       
## [861] "Russia"        "Russia"        "Russia"        "Russia"       
## [865] "Russia"        "Russia"        "Russia"        "Russia"       
## [869] "Russia"        "Russia"        "Russia"        "Russia"       
## [873] "Russia"        "Russia"        "Russia"        "Russia"       
## [877] "Russia"        "Russia"        "Russia"        "Russia"       
## [881] "Russia"        "Russia"        "Russia"        "Russia"       
## [885] "Russia"        "Russia"        "Russia"        "Russia"       
## [889] "Russia"        "Russia"        "Russia"        "Russia"       
## [893] "Russia"        "Russia"        "Russia"        "Russia"       
## [897] "Russia"        "Russia"        "Russia"        "Russia"
str_detect(games1$country, "Sweden")
##   [1] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
##  [13] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
##  [25] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
##  [37] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
##  [49] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
##  [61] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
##  [73] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
##  [85] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
##  [97] FALSE FALSE FALSE FALSE FALSE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE
## [109]  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE
## [121]  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE
## [133]  TRUE  TRUE  TRUE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [145] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [157] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [169] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [181] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [193] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [205] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [217] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [229] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [241] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [253] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [265] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [277] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [289] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [301] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [313] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [325] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [337] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [349] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [361] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [373] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [385] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [397] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [409] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [421] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [433] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [445] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [457] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [469] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [481] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [493] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [505] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [517] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [529] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [541] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [553] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [565] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [577] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [589] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [601] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [613] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [625] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [637] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [649] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [661] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [673] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [685] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [697] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [709] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [721] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [733] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [745] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [757] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [769] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [781] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [793] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [805] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [817] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [829] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [841] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [853] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [865] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [877] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [889] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
sum(str_detect(games1$country, "Sweden"))
## [1] 35
games1 %>%
    summarise(num_Sweden = sum(str_detect(country, "Sweden")))
## # A tibble: 1 × 1
##   num_Sweden
##        <int>
## 1         35
games1 %>%
    
    summarise(sum(str_detect(winning_team, "Sweden")))
## # A tibble: 1 × 1
##   `sum(str_detect(winning_team, "Sweden"))`
##                                       <int>
## 1                                        20
str_detect(games1$winning_team, "Sweden")
##   [1] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
##  [13] FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE
##  [25] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
##  [37] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE
##  [49] FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE
##  [61] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
##  [73] FALSE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
##  [85] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
##  [97] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [109]  TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE
## [121] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE
## [133] FALSE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [145] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [157] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [169] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [181] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [193] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [205] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [217] FALSE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [229] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [241] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [253] FALSE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [265] FALSE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [277] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [289] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [301] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [313] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [325] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [337] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [349] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [361] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [373] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [385] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [397] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [409] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [421] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [433] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [445] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [457] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [469] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [481] FALSE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [493] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE
## [505] FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE  TRUE FALSE
## [517] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [529] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [541] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [553] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [565] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [577] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [589] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [601] FALSE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [613] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [625] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [637] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [649] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [661] FALSE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [673] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [685] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [697] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [709] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [721] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [733] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [745] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [757] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [769] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [781] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [793] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [805] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [817] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [829] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [841] FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE
## [853] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [865] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [877] FALSE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [889] FALSE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
sum(str_detect(games1$winning_team, "Sweden"))
## [1] 20
mean(str_detect(games1$winning_team, "Sweden"))
## [1] 0.02222222

Extract matches

games1 %>%
    mutate(col_Sweden = str_extract(winning_team, "Sweden")) %>%
    select(winning_team, col_Sweden) %>%
    filter(!is.na(col_Sweden))
## # A tibble: 20 × 2
##    winning_team col_Sweden
##    <chr>        <chr>     
##  1 Sweden       Sweden    
##  2 Sweden       Sweden    
##  3 Sweden       Sweden    
##  4 Sweden       Sweden    
##  5 Sweden       Sweden    
##  6 Sweden       Sweden    
##  7 Sweden       Sweden    
##  8 Sweden       Sweden    
##  9 Sweden       Sweden    
## 10 Sweden       Sweden    
## 11 Sweden       Sweden    
## 12 Sweden       Sweden    
## 13 Sweden       Sweden    
## 14 Sweden       Sweden    
## 15 Sweden       Sweden    
## 16 Sweden       Sweden    
## 17 Sweden       Sweden    
## 18 Sweden       Sweden    
## 19 Sweden       Sweden    
## 20 Sweden       Sweden

Replacing matches

games1 %>%
    mutate(col_myteam = str_replace(winning_team, "Sweden", "myteam")) %>%
               select(winning_team, col_myteam) 
## # A tibble: 900 × 2
##    winning_team  col_myteam   
##    <chr>         <chr>        
##  1 France        France       
##  2 United States United States
##  3 Yugoslavia    Yugoslavia   
##  4 Romania       Romania      
##  5 Argentina     Argentina    
##  6 Chile         Chile        
##  7 Yugoslavia    Yugoslavia   
##  8 United States United States
##  9 Uruguay       Uruguay      
## 10 Argentina     Argentina    
## # ℹ 890 more rows