data <- read_excel("../00_data/myDataHotOnesEpisodes.xlsx")data$guest## [1] "Tony Yayo" "Anthony Rizzo"
## [3] "Machine Gun" "Gunplay"
## [5] "Ja Rule" "B.o.B."
## [7] "Prince Amukamara" "DJ Khaled"
## [9] "Curren$y" "Tinashe"
## [11] "Tommy Chong" "T.J. Miller"
## [13] "Coolio" "Joey Fatone"
## [15] "Michael Rapaport" "Key & Peele"
## [17] "Riff Raff" "Eddie Huang"
## [19] "Chris D'Elia" "Mike Epps"
## [21] "Jim Gaffigan" "Carly Aquilino"
## [23] "Redman" "Rob Gronkowski"
## [25] "Rob Corddry" "Jeff Ross"
## [27] "David Cross" "Eric André"
## [29] "Joe Budden" "Matty Matheson"
## [31] "RZA and Paul Banks" "Bert Kreischer"
## [33] "YG" "Jay Pharoah"
## [35] "Harley Morenstein" "Travis Kelce"
## [37] "Hasan Minhaj" "Kevin Hart"
## [39] "Martin Garrix" "Bobby Lee"
## [41] "Tony Hawk" "Action Bronson"
## [43] "T-Pain" "Rachael Ray"
## [45] "Tom Colicchio" "Post Malone"
## [47] "N.O.R.E." "James Franco and Bryan Cranston"
## [49] "Padma Lakshmi" "Joey (CoCo) Diaz"
## [51] "Danny Brown" "Ricky Gervais"
## [53] "Charlie Day" "Mac DeMarco"
## [55] "Russell Brand" "Charlie Sloth"
## [57] "Kyle Kinane" "Dax Shepard"
## [59] "H3H3 Productions" "Keke Palmer"
## [61] "Charlamagne Tha God" "DJ Snake"
## [63] "Guy Fieri" "Kevin Love"
## [65] "Neil deGrasse Tyson" "Thomas Middleditch"
## [67] "Andy Cohen" "Tom Arnold"
## [69] "Coyote Peterson" "Nick Kroll"
## [71] "Brett Baker (superfan)" "Seth Rogen and Dominic Cooper"
## [73] "Cara Delevingne" "Liam Payne"
## [75] "Steve-O" "Vince Staples"
## [77] "Adam Richman" "ASAP Ferg"
## [79] "Kevin Durant" "Henry Rollins"
## [81] "Dillon Francis" "Joji"
## [83] "Wanda Sykes" "Terry Crews"
## [85] "Gary Vaynerchuk" "Artie Lange"
## [87] "Chris Jericho" "Gabrielle Union"
## [89] "Wale" "Bob Saget"
## [91] "Mario Batali" "Alexa Chung"
## [93] "Logic" "Casey Neistat"
## [95] "NA" "Chili Klaus"
## [97] "Taraji P. Henson" "Sasha Banks"
## [99] "Von Miller" "Rich Brian"
## [101] "Hannibal Buress" "Michael B. Jordan"
## [103] "Ty Burrell" "Charlize Theron"
## [105] "Adam Rippon" "Gabriel Iglesias"
## [107] "Shawn Mendes" "Philip DeFranco"
## [109] "Trick Daddy" "Tyra Banks"
## [111] "Alton Brown" "John Mayer"
## [113] "Johnny Knoxville" "Natalie Portman"
## [115] "Marques Brownlee" "Joel Embiid"
## [117] "Tom Segura" "Joji and Rich Brian"
## [119] "Wiz Khalifa" "Al Roker"
## [121] "Michael Cera" "Issa Rae"
## [123] "Rhett & Link" "Jeff Goldblum"
## [125] "Eddie Huang" "Chrissy Teigen"
## [127] "Tenacious D" "Anderson .Paak"
## [129] "Adam Carolla" "Lil Yachty"
## [131] "E-40" "Lilly Singh"
## [133] "Blake Griffin" "Bill Burr"
## [135] "Pete Holmes" "Vanessa Hudgens"
## [137] "Weird Al Yankovic" "Gordon Ramsay"
## [139] "Abbi and Ilana" "Seth Meyers"
## [141] "Ken Jeong" "Desus and Mero"
## [143] "Offset" "Billie Eilish"
## [145] "Shaq" "Theo Von"
## [147] "Jimmy Butler" "Chelsea Handler"
## [149] "Scarlett Johansson" "The Jonas Brothers"
## [151] "Halle Berry" "Trevor Noah"
## [153] "Aubrey Plaza" "Schoolboy Q"
## [155] "Adam Devine" "Kumail Nanjiani"
## [157] "Binging with Babish" "Juice WRLD"
## [159] "Idris Elba" "Kristen Bell"
## [161] "Stone Cold Steve Austin" "Jay Pharoah"
## [163] "Shia LaBeouf" "Ashton Kutcher"
## [165] "Noel Gallagher" "Liza Koshy"
## [167] "Paul Rudd" "Maisie Williams"
## [169] "Nick Offerman" "DaBaby"
## [171] "Kristen Stewart" "Chance the Rapper"
## [173] "Brad Leone" "John Boyega"
## [175] "Margot Robbie" "Zoë Kravitz"
## [177] "Will Ferrell" "Halsey"
## [179] "Pete Davidson" "David Dobrik"
## [181] "Big Sean" "Zac Efron"
## [183] "Justin Timberlake" "Tom Segura"
## [185] "Brie Larson" "Eric André"
## [187] "Dan Levy" "Dua Lipa"
## [189] "T-Pain" "Adam Richman"
## [191] "Action Bronson" "Drew Barrymore"
## [193] "Joseph Gordon-Levitt" "Jessica Alba"
## [195] "Ronda Rousey" "Naomi Campbell"
## [197] "Matthew McConaughey" "Sam Smith"
## [199] "Saweetie" "Thundercat"
## [201] "The Undertaker" "Lil Nas X"
## [203] "Daniel Radcliffe" "NA"
## [205] "Priyanka Chopra Jonas" "Dustin Poirier"
## [207] "Kevin James" "Awkwafina"
## [209] "Kenan Thompson" "Anthony Mackie"
## [211] "Paris Hilton" "Jennifer Garner"
## [213] "J Balvin" "Jeffrey Dean"
## [215] "Russell Brand" "Steve-O"
## [217] "Jack Harlow" "Kamaru Usman"
## [219] "Quavo" "Elizabeth Olsen"
## [221] "Olivia Rodrigo" "Malcolm Gladwell"
## [223] "Ed Sheeran" "David Harbour"
## [225] "Michael Che" "Lorde"
## [227] "Matt Damon" "Elijah Wood"
## [229] "Jimmy Kimmel" "Derrick Lewis"
## [231] "Jon Bernthal" "Megan Thee Stallion"
## [233] "CL" "Mila Kunis"
## [235] "Salma Hayek" "Jeremy Renner"
## [237] "David Chang" "Brad Underwood"
## [239] "Rob Lowe" "Simu Liu"
## [241] "Tom Holland" "Gordon Ramsay"
## [243] "Seth Rogen" "Tracee Ellis Ross"
## [245] "Ed Helms" "Sebastian Stan"
## [247] "Andrew Zimmern" "Dave Grohl"
## [249] "Colin Farrell" "Courteney Cox"
## [251] "Jacob Elordi" "Pusha T"
## [253] "Leslie Mann" "Josh Brolin"
## [255] "Post Malone" "Millie Bobby Brown"
## [257] "Queen Latifah" "Kevin Bacon"
## [259] "Khloé Kardashian" "Andrew Callaghan"
## [261] "Tessa Thompson" "Daniel Kaluuya"
## [263] "Bear Grylls" "Mark Rober"
## [265] "Lizzo" "Neil Patrick Harris"
## [267] "David Blaine" "Kid Cudi"
## [269] "Viola Davis" "Cole Bennett"
## [271] "Cate Blanchett" "Emma Chamberlain"
## [273] "James Corden" "Ramy Youssef"
## [275] "Israel Adesanya" "Zoe Saldaña"
## [277] "Kate Hudson" "Paul Dano"
## [279] "Anna Kendrick" "Bryan Cranston"
## [281] "Lenny Kravitz" "Austin Butler"
## [283] "LL Cool J" "Jenna Ortega"
## [285] "Pedro Pascal" "Niall Horan"
## [287] "Bob Odenkirk" "Florence Pugh"
## [289] "Kieran Culkin" "Jake Gyllenhaal"
## [291] "Jason Sudeikis" "Julia Louis-Dreyfus"
## [293] "Rosalía" "Melissa McCarthy"
## [295] "Jennifer Lawrence" "John Mulaney"
## [297] "Lewis Capaldi" "Harry Kane"
## [299] "John Stamos" "Stephen Curry"str_detect(data$guest, "Tony")## [1] TRUE 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 TRUE 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 FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [109] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [121] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [133] FALSE FALSE 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 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 FALSEsum(str_detect(data$guest, "Tony"))## [1] 2data %>%
summarise(num_Tony = sum(str_detect(guest, "Tony")))## # A tibble: 1 × 1
## num_Tony
## <int>
## 1 2data %>%
mutate(col_Tony = str_extract(guest, "Tony")) %>%
select(guest, col_Tony) %>%
filter(!is.na(col_Tony))## # A tibble: 2 × 2
## guest col_Tony
## <chr> <chr>
## 1 Tony Yayo Tony
## 2 Tony Hawk Tonydata %>%
mutate(col_Stephen = str_replace(guest, "Tony", "Stephen")) %>%
select(guest, col_Stephen)## # A tibble: 300 × 2
## guest col_Stephen
## <chr> <chr>
## 1 Tony Yayo Stephen Yayo
## 2 Anthony Rizzo Anthony Rizzo
## 3 Machine Gun Machine Gun
## 4 Gunplay Gunplay
## 5 Ja Rule Ja Rule
## 6 B.o.B. B.o.B.
## 7 Prince Amukamara Prince Amukamara
## 8 DJ Khaled DJ Khaled
## 9 Curren$y Curren$y
## 10 Tinashe Tinashe
## # ℹ 290 more rows