Module 10: Apply it to your data 9

Tools

Detect matches

ads$brand

##   [1] "Toyota"    "Bud Light" "Bud Light" "Hynudai"   "Bud Light" "Toyota"   
##   [7] "Coca-Cola" "Kia"       "Hynudai"   "Budweiser" "Hynudai"   "Bud Light"
##  [13] "Budweiser" "Budweiser" "NFL"       "NFL"       "Bud Light" "Pepsi"    
##  [19] "Bud Light" "Doritos"   "Bud Light" "Pepsi"     "Hynudai"   "Budweiser"
##  [25] "Kia"       "Doritos"   "Pepsi"     "Hynudai"   "NFL"       "Coca-Cola"
##  [31] "Pepsi"     "Hynudai"   "Bud Light" "E-Trade"   "Bud Light" "Doritos"  
##  [37] "Budweiser" "Coca-Cola" "Hynudai"   "Pepsi"     "Kia"       "Pepsi"    
##  [43] "NFL"       "E-Trade"   "NFL"       "E-Trade"   "E-Trade"   "Budweiser"
##  [49] "Doritos"   "Budweiser" "Doritos"   "Budweiser" "E-Trade"   "Bud Light"
##  [55] "Kia"       "Bud Light" "Bud Light" "Pepsi"     "Hynudai"   "Coca-Cola"
##  [61] "Hynudai"   "Doritos"   "Doritos"   "Doritos"   "Coca-Cola" "Toyota"   
##  [67] "Budweiser" "Coca-Cola" "Budweiser" "Coca-Cola" "Budweiser" "Hynudai"  
##  [73] "Bud Light" "Bud Light" "Bud Light" "Coca-Cola" "Pepsi"     "Doritos"  
##  [79] "Budweiser" "Budweiser" "Budweiser" "Kia"       "Budweiser" "Budweiser"
##  [85] "Coca-Cola" "Doritos"   "Toyota"    "NFL"       "Hynudai"   "Bud Light"
##  [91] "Budweiser" "Hynudai"   "Doritos"   "Bud Light" "Toyota"    "Bud Light"
##  [97] "Budweiser" "Bud Light" "Coca-Cola" "Hynudai"   "Hynudai"   "Kia"      
## [103] "Budweiser" "Bud Light" "Hynudai"   "NFL"       "Pepsi"     "Budweiser"
## [109] "Bud Light" "Bud Light" "Budweiser" "Budweiser" "Bud Light" "Coca-Cola"
## [115] "Bud Light" "Bud Light" "Toyota"    "Bud Light" "Kia"       "Hynudai"  
## [121] "Bud Light" "Bud Light" "Budweiser" "Bud Light" "Doritos"   "Bud Light"
## [127] "Budweiser" "Doritos"   "Bud Light" "Pepsi"     "Doritos"   "Toyota"   
## [133] "Doritos"   "Bud Light" "Bud Light" "E-Trade"   "Bud Light" "Coca-Cola"
## [139] "Pepsi"     "Doritos"   "Kia"       "NFL"       "Bud Light" "Hynudai"  
## [145] "Bud Light" "Bud Light" "Toyota"    "Bud Light" "Coca-Cola" "Budweiser"
## [151] "Doritos"   "Bud Light" "Doritos"   "Coca-Cola" "Pepsi"     "E-Trade"  
## [157] "Bud Light" "Doritos"   "Kia"       "Doritos"   "Coca-Cola" "Hynudai"  
## [163] "Coca-Cola" "Bud Light" "Kia"       "Bud Light" "Kia"       "Pepsi"    
## [169] "Bud Light" "Hynudai"   "Bud Light" "Bud Light" "E-Trade"   "Budweiser"
## [175] "Pepsi"     "Coca-Cola" "Bud Light" "Pepsi"     "E-Trade"   "Budweiser"
## [181] "Coca-Cola" "Kia"       "Coca-Cola" "Budweiser" "Bud Light" "Bud Light"
## [187] "Budweiser" "Kia"       "Budweiser" "E-Trade"   "Bud Light" "Toyota"   
## [193] "Budweiser" "Budweiser" "Budweiser" "Bud Light" "E-Trade"   "Budweiser"
## [199] "Coca-Cola" "Bud Light" "Toyota"    "Hynudai"   "Pepsi"     "Pepsi"    
## [205] "Pepsi"     "Bud Light" "Doritos"   "Budweiser" "Bud Light" "Pepsi"    
## [211] "Bud Light" "Bud Light" "Bud Light" "Bud Light" "Bud Light" "Pepsi"    
## [217] "Budweiser" "Bud Light" "Bud Light" "Budweiser" "E-Trade"   "Pepsi"    
## [223] "Budweiser" "Hynudai"   "Budweiser" "Pepsi"     "Coca-Cola" "NFL"      
## [229] "Doritos"   "Pepsi"     "Bud Light" "Budweiser" "Bud Light" "Hynudai"  
## [235] "Toyota"    "Budweiser" "Doritos"   "Doritos"   "Bud Light" "Doritos"  
## [241] "NFL"       "Pepsi"     "NFL"       "Budweiser" "Pepsi"     "E-Trade"  
## [247] "Budweiser"

str_detect(ads$brand, "Toyota")

##   [1]  TRUE FALSE FALSE FALSE FALSE  TRUE 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  TRUE FALSE FALSE FALSE FALSE FALSE FALSE
##  [73] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
##  [85] FALSE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE
##  [97] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [109] FALSE 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 FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [145] FALSE FALSE  TRUE 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  TRUE
## [193] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE 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  TRUE FALSE FALSE FALSE FALSE FALSE
## [241] FALSE FALSE FALSE FALSE FALSE FALSE FALSE

sum(str_detect(ads$brand,"Toyota"))

## [1] 11

ads %>%
    summarise(num_Toyota = sum(str_detect(brand, "Toyota")))

##   num_Toyota
## 1         11

ads %>%
    
    summarise(sum(str_detect(brand, "Pepsi")))

##   sum(str_detect(brand, "Pepsi"))
## 1                              25

str_detect(ads$brand,"Pepsi")

##   [1] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
##  [13] FALSE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE  TRUE FALSE FALSE
##  [25] FALSE FALSE  TRUE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE
##  [37] FALSE FALSE FALSE  TRUE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE
##  [49] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE
##  [61] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
##  [73] FALSE FALSE FALSE FALSE  TRUE 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  TRUE FALSE
## [109] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [121] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE
## [133] FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE
## [145] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE
## [157] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE
## [169] FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE  TRUE 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  TRUE  TRUE
## [205]  TRUE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE  TRUE
## [217] FALSE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE  TRUE FALSE FALSE
## [229] FALSE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [241] FALSE  TRUE FALSE FALSE  TRUE FALSE FALSE

sum(str_detect(ads$brand, "Pepsi"))

## [1] 25

mean(str_detect(ads$brand, "Pepsi"))

## [1] 0.1012146

Extract matches

ads %>%
    mutate(col_Pepsi = str_extract(brand, "Pepsi")) %>%
    select(brand, col_Pepsi) %>%
    filter(!is.na(col_Pepsi))

##    brand col_Pepsi
## 1  Pepsi     Pepsi
## 2  Pepsi     Pepsi
## 3  Pepsi     Pepsi
## 4  Pepsi     Pepsi
## 5  Pepsi     Pepsi
## 6  Pepsi     Pepsi
## 7  Pepsi     Pepsi
## 8  Pepsi     Pepsi
## 9  Pepsi     Pepsi
## 10 Pepsi     Pepsi
## 11 Pepsi     Pepsi
## 12 Pepsi     Pepsi
## 13 Pepsi     Pepsi
## 14 Pepsi     Pepsi
## 15 Pepsi     Pepsi
## 16 Pepsi     Pepsi
## 17 Pepsi     Pepsi
## 18 Pepsi     Pepsi
## 19 Pepsi     Pepsi
## 20 Pepsi     Pepsi
## 21 Pepsi     Pepsi
## 22 Pepsi     Pepsi
## 23 Pepsi     Pepsi
## 24 Pepsi     Pepsi
## 25 Pepsi     Pepsi

Replacing matches

ads %>%
    mutate(col_favorite = str_replace(brand, "Pepsi", "favorite")) %>%
    select(brand, col_favorite)

##         brand col_favorite
## 1      Toyota       Toyota
## 2   Bud Light    Bud Light
## 3   Bud Light    Bud Light
## 4     Hynudai      Hynudai
## 5   Bud Light    Bud Light
## 6      Toyota       Toyota
## 7   Coca-Cola    Coca-Cola
## 8         Kia          Kia
## 9     Hynudai      Hynudai
## 10  Budweiser    Budweiser
## 11    Hynudai      Hynudai
## 12  Bud Light    Bud Light
## 13  Budweiser    Budweiser
## 14  Budweiser    Budweiser
## 15        NFL          NFL
## 16        NFL          NFL
## 17  Bud Light    Bud Light
## 18      Pepsi     favorite
## 19  Bud Light    Bud Light
## 20    Doritos      Doritos
## 21  Bud Light    Bud Light
## 22      Pepsi     favorite
## 23    Hynudai      Hynudai
## 24  Budweiser    Budweiser
## 25        Kia          Kia
## 26    Doritos      Doritos
## 27      Pepsi     favorite
## 28    Hynudai      Hynudai
## 29        NFL          NFL
## 30  Coca-Cola    Coca-Cola
## 31      Pepsi     favorite
## 32    Hynudai      Hynudai
## 33  Bud Light    Bud Light
## 34    E-Trade      E-Trade
## 35  Bud Light    Bud Light
## 36    Doritos      Doritos
## 37  Budweiser    Budweiser
## 38  Coca-Cola    Coca-Cola
## 39    Hynudai      Hynudai
## 40      Pepsi     favorite
## 41        Kia          Kia
## 42      Pepsi     favorite
## 43        NFL          NFL
## 44    E-Trade      E-Trade
## 45        NFL          NFL
## 46    E-Trade      E-Trade
## 47    E-Trade      E-Trade
## 48  Budweiser    Budweiser
## 49    Doritos      Doritos
## 50  Budweiser    Budweiser
## 51    Doritos      Doritos
## 52  Budweiser    Budweiser
## 53    E-Trade      E-Trade
## 54  Bud Light    Bud Light
## 55        Kia          Kia
## 56  Bud Light    Bud Light
## 57  Bud Light    Bud Light
## 58      Pepsi     favorite
## 59    Hynudai      Hynudai
## 60  Coca-Cola    Coca-Cola
## 61    Hynudai      Hynudai
## 62    Doritos      Doritos
## 63    Doritos      Doritos
## 64    Doritos      Doritos
## 65  Coca-Cola    Coca-Cola
## 66     Toyota       Toyota
## 67  Budweiser    Budweiser
## 68  Coca-Cola    Coca-Cola
## 69  Budweiser    Budweiser
## 70  Coca-Cola    Coca-Cola
## 71  Budweiser    Budweiser
## 72    Hynudai      Hynudai
## 73  Bud Light    Bud Light
## 74  Bud Light    Bud Light
## 75  Bud Light    Bud Light
## 76  Coca-Cola    Coca-Cola
## 77      Pepsi     favorite
## 78    Doritos      Doritos
## 79  Budweiser    Budweiser
## 80  Budweiser    Budweiser
## 81  Budweiser    Budweiser
## 82        Kia          Kia
## 83  Budweiser    Budweiser
## 84  Budweiser    Budweiser
## 85  Coca-Cola    Coca-Cola
## 86    Doritos      Doritos
## 87     Toyota       Toyota
## 88        NFL          NFL
## 89    Hynudai      Hynudai
## 90  Bud Light    Bud Light
## 91  Budweiser    Budweiser
## 92    Hynudai      Hynudai
## 93    Doritos      Doritos
## 94  Bud Light    Bud Light
## 95     Toyota       Toyota
## 96  Bud Light    Bud Light
## 97  Budweiser    Budweiser
## 98  Bud Light    Bud Light
## 99  Coca-Cola    Coca-Cola
## 100   Hynudai      Hynudai
## 101   Hynudai      Hynudai
## 102       Kia          Kia
## 103 Budweiser    Budweiser
## 104 Bud Light    Bud Light
## 105   Hynudai      Hynudai
## 106       NFL          NFL
## 107     Pepsi     favorite
## 108 Budweiser    Budweiser
## 109 Bud Light    Bud Light
## 110 Bud Light    Bud Light
## 111 Budweiser    Budweiser
## 112 Budweiser    Budweiser
## 113 Bud Light    Bud Light
## 114 Coca-Cola    Coca-Cola
## 115 Bud Light    Bud Light
## 116 Bud Light    Bud Light
## 117    Toyota       Toyota
## 118 Bud Light    Bud Light
## 119       Kia          Kia
## 120   Hynudai      Hynudai
## 121 Bud Light    Bud Light
## 122 Bud Light    Bud Light
## 123 Budweiser    Budweiser
## 124 Bud Light    Bud Light
## 125   Doritos      Doritos
## 126 Bud Light    Bud Light
## 127 Budweiser    Budweiser
## 128   Doritos      Doritos
## 129 Bud Light    Bud Light
## 130     Pepsi     favorite
## 131   Doritos      Doritos
## 132    Toyota       Toyota
## 133   Doritos      Doritos
## 134 Bud Light    Bud Light
## 135 Bud Light    Bud Light
## 136   E-Trade      E-Trade
## 137 Bud Light    Bud Light
## 138 Coca-Cola    Coca-Cola
## 139     Pepsi     favorite
## 140   Doritos      Doritos
## 141       Kia          Kia
## 142       NFL          NFL
## 143 Bud Light    Bud Light
## 144   Hynudai      Hynudai
## 145 Bud Light    Bud Light
## 146 Bud Light    Bud Light
## 147    Toyota       Toyota
## 148 Bud Light    Bud Light
## 149 Coca-Cola    Coca-Cola
## 150 Budweiser    Budweiser
## 151   Doritos      Doritos
## 152 Bud Light    Bud Light
## 153   Doritos      Doritos
## 154 Coca-Cola    Coca-Cola
## 155     Pepsi     favorite
## 156   E-Trade      E-Trade
## 157 Bud Light    Bud Light
## 158   Doritos      Doritos
## 159       Kia          Kia
## 160   Doritos      Doritos
## 161 Coca-Cola    Coca-Cola
## 162   Hynudai      Hynudai
## 163 Coca-Cola    Coca-Cola
## 164 Bud Light    Bud Light
## 165       Kia          Kia
## 166 Bud Light    Bud Light
## 167       Kia          Kia
## 168     Pepsi     favorite
## 169 Bud Light    Bud Light
## 170   Hynudai      Hynudai
## 171 Bud Light    Bud Light
## 172 Bud Light    Bud Light
## 173   E-Trade      E-Trade
## 174 Budweiser    Budweiser
## 175     Pepsi     favorite
## 176 Coca-Cola    Coca-Cola
## 177 Bud Light    Bud Light
## 178     Pepsi     favorite
## 179   E-Trade      E-Trade
## 180 Budweiser    Budweiser
## 181 Coca-Cola    Coca-Cola
## 182       Kia          Kia
## 183 Coca-Cola    Coca-Cola
## 184 Budweiser    Budweiser
## 185 Bud Light    Bud Light
## 186 Bud Light    Bud Light
## 187 Budweiser    Budweiser
## 188       Kia          Kia
## 189 Budweiser    Budweiser
## 190   E-Trade      E-Trade
## 191 Bud Light    Bud Light
## 192    Toyota       Toyota
## 193 Budweiser    Budweiser
## 194 Budweiser    Budweiser
## 195 Budweiser    Budweiser
## 196 Bud Light    Bud Light
## 197   E-Trade      E-Trade
## 198 Budweiser    Budweiser
## 199 Coca-Cola    Coca-Cola
## 200 Bud Light    Bud Light
## 201    Toyota       Toyota
## 202   Hynudai      Hynudai
## 203     Pepsi     favorite
## 204     Pepsi     favorite
## 205     Pepsi     favorite
## 206 Bud Light    Bud Light
## 207   Doritos      Doritos
## 208 Budweiser    Budweiser
## 209 Bud Light    Bud Light
## 210     Pepsi     favorite
## 211 Bud Light    Bud Light
## 212 Bud Light    Bud Light
## 213 Bud Light    Bud Light
## 214 Bud Light    Bud Light
## 215 Bud Light    Bud Light
## 216     Pepsi     favorite
## 217 Budweiser    Budweiser
## 218 Bud Light    Bud Light
## 219 Bud Light    Bud Light
## 220 Budweiser    Budweiser
## 221   E-Trade      E-Trade
## 222     Pepsi     favorite
## 223 Budweiser    Budweiser
## 224   Hynudai      Hynudai
## 225 Budweiser    Budweiser
## 226     Pepsi     favorite
## 227 Coca-Cola    Coca-Cola
## 228       NFL          NFL
## 229   Doritos      Doritos
## 230     Pepsi     favorite
## 231 Bud Light    Bud Light
## 232 Budweiser    Budweiser
## 233 Bud Light    Bud Light
## 234   Hynudai      Hynudai
## 235    Toyota       Toyota
## 236 Budweiser    Budweiser
## 237   Doritos      Doritos
## 238   Doritos      Doritos
## 239 Bud Light    Bud Light
## 240   Doritos      Doritos
## 241       NFL          NFL
## 242     Pepsi     favorite
## 243       NFL          NFL
## 244 Budweiser    Budweiser
## 245     Pepsi     favorite
## 246   E-Trade      E-Trade
## 247 Budweiser    Budweiser

Module 10: Apply it to your data 9

Mitchell Cripps

Import your data

Chapter 14

Tools

Detect matches

Extract matches

Replacing matches