Import your data

data <- read_excel("../00_data/Apply_1.xlsx")

Chapter 14

Tools

Detect matches

data$director
##    [1] "Hal Ashby"                       "Roger Michell"                  
##    [3] "Phillip Noyce"                   "Joel Coen"                      
##    [5] "Mike Mills"                      "Katt Shea"                      
##    [7] "Woody Allen"                     "Jon Amiel"                      
##    [9] "Woody Allen"                     "Paul Thomas Anderson"           
##   [11] "Steven Spielberg"                "Irving Pichel"                  
##   [13] "Jerry Zucker"                    "Nancy Meyers"                   
##   [15] "Michel Gondry"                   "Sofia Coppola"                  
##   [17] "Anand Tucker"                    "Jonathan Lynn"                  
##   [19] "Daniel Petrie"                   "Woody Allen"                    
##   [21] "Roger Michell"                   "Jean Negulesco"                 
##   [23] "Adrian Lyne"                     "Woody Allen"                    
##   [25] "John Curran"                     "Rebecca Miller"                 
##   [27] "Paul Haggis"                     "Isabel Coixet"                  
##   [29] "Woody Allen"                     "John Glen"                      
##   [31] "Tony Scott"                      "John Glen"                      
##   [33] "Stanley Donen"                   "Melville Shavelson"             
##   [35] "Don Michael Paul"                "Billy Wilder"                   
##   [37] "Joseph L. Mankiewicz"            "Tom Ford"                       
##   [39] "John Glen"                       "Nicholas Jarecki"               
##   [41] "Warren Beatty"                   "David Fincher"                  
##   [43] "Ang Lee"                         "Martin Scorsese"                
##   [45] "Joel Coen"                       "Andrew Davis"                   
##   [47] "John Glen"                       "John Huston"                    
##   [49] "Woody Allen"                     "Scott Cooper"                   
##   [51] "Ruben Fleischer"                 "Fred Zinnemann"                 
##   [53] "Bernardo Bertolucci"             "undefined"                      
##   [55] "Woody Allen"                     "Peter Sollett"                  
##   [57] "Ivan Reitman"                    "Gary Winick"                    
##   [59] "Julian Farino"                   "Noah Baumbach"                  
##   [61] "David Koepp"                     "James L. Brooks"                
##   [63] "Steven Soderbergh"               "Scott Cooper"                   
##   [65] "Lee Tamahori"                    "Charles Walters"                
##   [67] "Charles Shyer"                   "Adrian Lyne"                    
##   [69] "Woody Allen"                     "Paul Thomas Anderson"           
##   [71] "Martin Scorsese"                 "Mira Nair"                      
##   [73] "Stanley Donen"                   "Atom Egoyan"                    
##   [75] "Delmer Daves"                    "René Clair"                    
##   [77] "John Huston"                     "Eli Roth"                       
##   [79] "Richard Curtis"                  "Rob Reiner"                     
##   [81] "Gary Ross"                       "Jonas √Ökerlund"                
##   [83] "Frank Capra"                     "Howard Hawks"                   
##   [85] "John Huston"                     "Alfred Hitchcock"               
##   [87] "Howard Hawks"                    "Alfred Hitchcock"               
##   [89] "Bobcat Goldthwait"               "John Herzfeld"                  
##   [91] "Ridley Scott"                    "Kevin Spacey"                   
##   [93] "Renny Harlin"                    "Tim Burton"                     
##   [95] "Tommy Lee Wallace"               "Nicholas Ray"                   
##   [97] "Steven Spielberg"                "Eli Roth"                       
##   [99] "Guy Hamilton"                    "Lewis Gilbert"                  
##  [101] "Howard Hawks"                    "Jonathan Mostow"                
##  [103] "Robert Redford"                  "Alfred Hitchcock"               
##  [105] "Ken Kwapis"                      "Nikolaj Arcel"                  
##  [107] "Robert Zemeckis"                 "David Leitch"                   
##  [109] "Lewis Gilbert"                   "John Glen"                      
##  [111] "Sydney Pollack"                  "Lorene Scafaria"                
##  [113] "Jacob Aaron Estes"               "Saul Dibb"                      
##  [115] "Hugh Wilson"                     "Guy Hamilton"                   
##  [117] "Bruce Robinson"                  "Joan Chen"                      
##  [119] "Alfred Hitchcock"                "Glenn Ficarra, John Requa"      
##  [121] "Guy Hamilton"                    "Guy Hamilton"                   
##  [123] "Federico Fellini"                "Alex Kurtzman"                  
##  [125] "Nick Cassavetes"                 "Ryan Murphy"                    
##  [127] "Wes Anderson"                    "Jon Avnet"                      
##  [129] "John Glen"                       "Quinn Shephard"                 
##  [131] "Barry Levinson"                  "Tony Scott"                     
##  [133] "Joseph Gordon-Levitt"            "Doug Liman"                     
##  [135] "John Glen"                       "Michael Mann"                   
##  [137] "Woody Allen"                     "Nancy Meyers"                   
##  [139] "Dennis Dugan"                    "Antoine Fuqua"                  
##  [141] "John Glen"                       "Charlie Chaplin"                
##  [143] "Jonathan Lynn"                   "George Cukor"                   
##  [145] "Alfred Hitchcock"                "Richard Loncraine"              
##  [147] "George Seaton"                   "Judd Apatow"                    
##  [149] "Charlie Chaplin"                 "Wes Anderson"                   
##  [151] "Sidney Lumet"                    "Roger Spottiswoode"             
##  [153] "James McTeigue"                  "Sam Mendes"                     
##  [155] "Peter Segal"                     "Steven Spielberg"               
##  [157] "William Friedkin"                "Mick Jackson"                   
##  [159] "Lewis Gilbert"                   "Alfred Hitchcock"               
##  [161] "Richard Eyre"                    "Tom Shadyac"                    
##  [163] "Mike Newell"                     "Mike Nichols"                   
##  [165] "Stanley Donen, Gene Kelly"       "Saul Dibb"                      
##  [167] "Luc Besson"                      "Robert Eggers"                  
##  [169] "Marc Webb"                       "Lewis Gilbert"                  
##  [171] "Antoine Fuqua"                   "Dustin Lance Black"             
##  [173] "Francis Lawrence"                "Paul Weitz, Chris Weitz"        
##  [175] "Vincente Minnelli"               "Edgar Wright"                   
##  [177] "Alejandro González Iñárritu"  "Vincent Gallo"                  
##  [179] "Richard Loncraine"               "David Fincher"                  
##  [181] "Woody Allen"                     "Garry Marshall"                 
##  [183] "Niels Arden Oplev"               "Sam Mendes"                     
##  [185] "Stephen Roberts"                 "David Ayer"                     
##  [187] "Marc Klein"                      "David Ayer"                     
##  [189] "Clint Eastwood"                  "Peter Jackson"                  
##  [191] "Mark Pellington"                 "David Zucker"                   
##  [193] "Terence Young"                   "Wally Pfister"                  
##  [195] "Tom Ford"                        "Marc Forster"                   
##  [197] "Nahnatchka Khan"                 "Jay Roach"                      
##  [199] "Joe & Anthony Russo"             "Tim Burton"                     
##  [201] "Richard Rush"                    "John Huston"                    
##  [203] "Gus Van Sant"                    "John Glen"                      
##  [205] "John Carney"                     "Garry Marshall"                 
##  [207] "Marc Forster"                    "Garry Marshall"                 
##  [209] "Sydney Pollack"                  "Jeffrey Nachmanoff"             
##  [211] "Garry Marshall"                  "Wes Anderson"                   
##  [213] "Brian De Palma"                  "Nancy Meyers"                   
##  [215] "Theodore Melfi"                  "Gary Winick"                    
##  [217] "John Cassavetes"                 "Guy Hamilton"                   
##  [219] "Bruce Robinson"                  "Michael Apted"                  
##  [221] "Peter Segal"                     "Woody Allen"                    
##  [223] "Peyton Reed"                     "Ruben Fleischer"                
##  [225] "Carl Rinsch"                     "Leo McCarey"                    
##  [227] "Joss Whedon"                     "Ridley Scott"                   
##  [229] "Mike Nichols"                    "Ivan Reitman"                   
##  [231] "Shawn Levy"                      "Martin Campbell"                
##  [233] "Peter Farrelly"                  "John Cassavetes"                
##  [235] "Todd Phillips"                   "Ivan Reitman"                   
##  [237] "Eli Roth"                        "Lynn Shelton"                   
##  [239] "Paco Cabezas"                    "Joseph Kosinski"                
##  [241] "Martin Scorsese"                 "Adam Shankman"                  
##  [243] "Steven Shainberg"                "Tim Burton"                     
##  [245] "Sam Mendes"                      "Chris Columbus"                 
##  [247] "Wayne Kramer"                    "Tate Taylor"                    
##  [249] "David Fincher"                   "Marc Webb"                      
##  [251] "Jonathan Lynn"                   "James Mangold"                  
##  [253] "Roger Spottiswoode"              "Steve Buscemi"                  
##  [255] "Brian Robbins"                   "David O. Russell"               
##  [257] "Todd Haynes"                     "Michael Curtiz"                 
##  [259] "Louis Malle"                     "Isabel Coixet"                  
##  [261] "Jerry Zucker"                    "David Leitch"                   
##  [263] "Dennis Dugan"                    "Richard Curtis"                 
##  [265] "Richard Curtis"                  "Bruce Joel Rubin"               
##  [267] "George C. Wolfe"                 "Louis Leterrier"                
##  [269] "Mike Nichols"                    "Boaz Yakin"                     
##  [271] "Adam Shankman"                   "Scott Hicks"                    
##  [273] "Woody Allen"                     "Emile Ardolino"                 
##  [275] "Marielle Heller"                 "Thomas Bezucha"                 
##  [277] "John Glen"                       "Adam Nee, Aaron Nee"            
##  [279] "Justin Chadwick"                 "Christopher Nolan"              
##  [281] "James McTeigue"                  "Robert Wise"                    
##  [283] "Martin Scorsese"                 "Wolfgang Petersen"              
##  [285] "Adrian Lyne"                     "Robert Zemeckis"                
##  [287] "John Hamburg"                    "Harold Ramis"                   
##  [289] "Alan Parker"                     "Martin Scorsese"                
##  [291] "Peter Landesman"                 "Michel Gondry"                  
##  [293] "Woody Allen"                     "Hallie Meyers-Shyer"            
##  [295] "Josh Radnor"                     "John Glen"                      
##  [297] "Marc Lawrence"                   "Quentin Tarantino"              
##  [299] "Betty Thomas"                    "Susanne Bier"                   
##  [301] "Michael Patrick King"            "David O. Russell"               
##  [303] "Anton Corbijn"                   "Sam Raimi"                      
##  [305] "Jean-Jacques Annaud"             "Guy Hamilton"                   
##  [307] "Stephen Daldry"                  "Courtney Hunt"                  
##  [309] "Mike Nichols"                    "Federico Fellini"               
##  [311] "Andrew Davis"                    "James Gray"                     
##  [313] "Nahnatchka Khan"                 "Lone Scherfig"                  
##  [315] "Paul Verhoeven"                  "Michael Lehmann"                
##  [317] "Bill Condon"                     "Bill Condon"                    
##  [319] "undefined"                       "Lawrence Kasdan"                
##  [321] "Terence Young"                   "Charles Walters"                
##  [323] "Woody Allen"                     "Greg Mottola"                   
##  [325] "John Glen"                       "J.J. Abrams"                    
##  [327] "Mike Newell"                     "Rob Reiner"                     
##  [329] "George Lucas"                    "Seth MacFarlane"                
##  [331] "Rob Reiner"                      "Danny Boyle"                    
##  [333] "Alan Shapiro"                    "Yorgos Lanthimos"               
##  [335] "Sam Raimi"                       "David Yates"                    
##  [337] "John Glen"                       "Phillip Noyce"                  
##  [339] "Cameron Crowe"                   "Steve McQueen"                  
##  [341] "Demian Lichtenstein"             "George Cukor"                   
##  [343] "Cameron Crowe"                   "Joe Wright"                     
##  [345] "Bryan Singer"                    "Steven Spielberg"               
##  [347] "Lee Tamahori"                    "Jon Favreau"                    
##  [349] "Autumn de Wilde"                 "Michel Gondry"                  
##  [351] "Steven Baigelman"                "John Glen"                      
##  [353] "Kevin Rodney Sullivan"           "Nick Cassavetes"                
##  [355] "David O. Russell"                "Matthew Vaughn"                 
##  [357] "Richard Curtis"                  "Barry Sonnenfeld"               
##  [359] "Gia Coppola"                     "Rawson Marshall Thurber"        
##  [361] "William Wyler"                   "Steven Spielberg"               
##  [363] "David Ayer"                      "George Nolfi"                   
##  [365] "David Frankel"                   "Bobby Farrelly, Peter Farrelly" 
##  [367] "Neil Burger"                     "Justin Chadwick"                
##  [369] "Maya Forbes"                     "M. Night Shyamalan"             
##  [371] "Michael Apted"                   "Rob Reiner"                     
##  [373] "Steve McQueen"                   "Curtis Hanson"                  
##  [375] "Matthew Vaughn"                  "Eric Brevig"                    
##  [377] "Lewis Gilbert"                   "Kevin Bray"                     
##  [379] "Robert Zemeckis"                 "Terry Zwigoff"                  
##  [381] "Michael Lehmann"                 "Mike Mills"                     
##  [383] "Martin Campbell"                 "Ken Scott"                      
##  [385] "Paul Mazursky"                   "Terence Young"                  
##  [387] "Victor Fleming"                  "Michael Mann"                   
##  [389] "Chris Rock"                      "John M. Chu"                    
##  [391] "Ron Howard"                      "Dennis Dugan"                   
##  [393] "Cary Fukunaga"                   "Elio Petri"                     
##  [395] "Massy Tadjedin"                  "Federico Fellini"               
##  [397] "Sam Levinson"                    "Doug Liman"                     
##  [399] "Jon Turteltaub"                  "Oliver Stone"                   
##  [401] "King Vidor"                      "Pierre Morel"                   
##  [403] "Seth MacFarlane"                 "Rand Ravich"                    
##  [405] "Tate Taylor"                     "Tate Taylor"                    
##  [407] "Michael Gracey"                  "Anne Fletcher"                  
##  [409] "Susanna Fogel"                   "Darren Aronofsky"               
##  [411] "Sydney Pollack"                  "Jason Reitman"                  
##  [413] "Marc Forster"                    "Ridley Scott"                   
##  [415] "Bradley Cooper"                  "Woody Allen"                    
##  [417] "Barbet Schroeder"                "Ryan Coogler"                   
##  [419] "Ted Demme"                       "Paul Thomas Anderson"           
##  [421] "Bill Condon"                     "Douglas McGrath"                
##  [423] "Terence Young"                   "Malcolm Venville"               
##  [425] "Amy Heckerling"                  "Steven Spielberg"               
##  [427] "Tom Hanks"                       "Richard Curtis"                 
##  [429] "Luis Mandoki"                    "Marc Forster"                   
##  [431] "Todd Phillips"                   "Morten Tyldum"                  
##  [433] "Joe Wright"                      "Billy Wilder"                   
##  [435] "Thomas Carter"                   "Gabriele Muccino"               
##  [437] "Michael Patrick King"            "Stanley Donen, Gene Kelly"      
##  [439] "Sam Mendes"                      "Noam Murro"                     
##  [441] "Ron Howard"                      "Park Chan-wook"                 
##  [443] "Pat O'Connor"                    "Joel Coen"                      
##  [445] "Sheree Folkson"                  "Taylor Hackford"                
##  [447] "Thomas Bezucha"                  "Rob Cohen"                      
##  [449] "Miguel Arteta"                   "Baz Luhrmann"                   
##  [451] "Bobby Farrelly, Peter Farrelly"  "Ricky Gervais, Matthew Robinson"
##  [453] "Derek Cianfrance"                "Norman Jewison"                 
##  [455] "Martin Scorsese"                 "Terence Young"                  
##  [457] "Roger Spottiswoode"              "Judd Apatow"                    
##  [459] "Jon Turteltaub"                  "Richard Loncraine"              
##  [461] "Robert Luketic"                  "Harold Ramis"                   
##  [463] "Lewis Gilbert"                   "Ruben Fleischer"                
##  [465] "Anne Fletcher"                   "Peyton Reed"                    
##  [467] "Adam Shankman"                   "Dennis Dugan"                   
##  [469] "Mel Gibson"                      "Sean Anders"                    
##  [471] "Danny DeVito"                    "Guy Hamilton"                   
##  [473] "Quentin Tarantino"               "Ron Howard"                     
##  [475] "Andy Tennant"                    "Robert Zemeckis"                
##  [477] "Jerry Zucker"                    "Mark Steven Johnson"            
##  [479] "Peter Webber"                    "Hart Bochner"                   
##  [481] "Donald Petrie"                   "Woody Allen"                    
##  [483] "Nick Hurran"                     "Paul Weiland"                   
##  [485] "Zack Snyder"                     "Guillermo del Toro"             
##  [487] "Michelangelo Antonioni"          "Quentin Tarantino"              
##  [489] "Alfred Hitchcock"                "Bonnie Hunt"                    
##  [491] "Hal Needham"                     "Oliver Stone"                   
##  [493] "James L. Brooks"                 "Marc Forster"                   
##  [495] "Andy Tennant"                    "Jason Reitman"                  
##  [497] "Martin Scorsese"                 "Colin Higgins"                  
##  [499] "Ben Stiller"                     "Sam Raimi"                      
##  [501] "Chuck Russell"                   "Paul Haggis"                    
##  [503] "Ryan Murphy"                     "Tom Shadyac"                    
##  [505] "Christopher Nolan"               "Robert Schwentke"               
##  [507] "Francis Lawrence"                "David Dobkin"                   
##  [509] "Lasse Hallström"                "Brian Helgeland"                
##  [511] "Peter Segal"                     "David Cronenberg"               
##  [513] "William A. Wellman"              "Steve Pink"                     
##  [515] "Jean-Pierre Jeunet"              "Ridley Scott"                   
##  [517] "Paul Thomas Anderson"            "Sharon Maguire"                 
##  [519] "Sharon Maguire"                  "Sharon Maguire"                 
##  [521] "Ron Shelton"                     "Luca Guadagnino"                
##  [523] "Mike Nichols"                    "Mark Neveldine, Brian Taylor"   
##  [525] "Jon M. Chu"                      "Dennis Dugan"                   
##  [527] "Dan Kwan, Daniel Scheinert"      "Ken Kwapis"                     
##  [529] "David Mirkin"                    "Michael Mann"                   
##  [531] "Glenn Ficarra, John Requa"       "Nancy Meyers"                   
##  [533] "Mark Waters"                     "Massy Tadjedin"                 
##  [535] "Jeff Franklin"                   "Zack Snyder"                    
##  [537] "Mike Newell"                     "P.J. Hogan"                     
##  [539] "Nicolas Winding Refn"            "Mike Newell"                    
##  [541] "Robert Schwentke"                "Steven Spielberg"               
##  [543] "David Fincher"                   "Nancy Meyers"                   
##  [545] "Adam McKay"                      "Kevin Reynolds"                 
##  [547] "Steve Kloves"                    "Tate Taylor"                    
##  [549] "Robert De Niro"                  "Jack Clayton"                   
##  [551] "Michael Gracey"                  "M. Night Shyamalan"             
##  [553] "Martin Campbell"                 "Nick Cassavetes"                
##  [555] "Frank Coraci"                    "Roger Spottiswoode"             
##  [557] "Jake Kasdan"                     "John McNaughton"                
##  [559] "Bryan Singer"                    "Gavin Hood"                     
##  [561] "Alfonso Cuarón"                 "Judy Greer"                     
##  [563] "Jean-Pierre Jeunet"              "Rob Reiner"                     
##  [565] "Nahnatchka Khan"                 "David O. Russell"               
##  [567] "Joel Schumacher"                 "Abdellatif Kechiche"            
##  [569] "Atom Egoyan"                     "Glenn Ficarra, John Requa"      
##  [571] "Guillermo del Toro"              "Sean Anders"                    
##  [573] "Peter Hedges"                    "Peter Berg"                     
##  [575] "Emile Ardolino"                  "Tim Burton"                     
##  [577] "Kevin Lima"                      "David Yates"                    
##  [579] "Steven Baigelman"                "Fred Zinnemann"                 
##  [581] "Peter Webber"                    "Harold Ramis"                   
##  [583] "Craig Gillespie"                 "Roger Avary"                    
##  [585] "George Clooney"                  "Richard Curtis"                 
##  [587] "Jeff Franklin"                   "Steven Soderbergh"              
##  [589] "Woody Allen"                     "Martin Brest"                   
##  [591] "Spike Lee"                       "Harold Ramis"                   
##  [593] "Steven Soderbergh"               "Richard LaGravenese"            
##  [595] "Gore Verbinski"                  "Ben Younger"                    
##  [597] "Angela Robinson"                 "Taylor Hackford"                
##  [599] "Antony Hoffman"                  "Brian Levant"                   
##  [601] "Steven Soderbergh"               "Boots Riley"                    
##  [603] "Tom Hanks"                       "John Huston"                    
##  [605] "Mick Jackson"                    "Fernando Meirelles"             
##  [607] "Kevin Reynolds"                  "Christopher Nolan"              
##  [609] "Louis Leterrier"                 "Ricky Gervais, Matthew Robinson"
##  [611] "David Dobkin"                    "Christopher Nolan"              
##  [613] "Ben Stiller"                     "Frank Coraci"                   
##  [615] "Michael Apted"                   "Paul Haggis"                    
##  [617] "Peter Segal"                     "Joseph Kosinski"                
##  [619] "Alfonso Cuarón"                 "Lewis Gilbert"                  
##  [621] "Tony Goldwyn"                    "James Wan"                      
##  [623] "James Wan"                       "Jay Roach"                      
##  [625] "Sam Mendes"                      "Tim Story"                      
##  [627] "Tamra Davis"                     "Ryan Coogler"                   
##  [629] "Tom Shadyac"                     "Woody Allen"                    
##  [631] "Michael Curtiz"                  "Robert Zemeckis"                
##  [633] "Richard Brooks"                  "Frank Coraci"                   
##  [635] "Amy Heckerling"                  "Amy Heckerling"                 
##  [637] "Simon West"                      "Robert Zemeckis"                
##  [639] "Ang Lee"                         "Jean-Pierre Jeunet"             
##  [641] "Victor Levin"                    "John McTiernan"                 
##  [643] "Neil Burger"                     "Alex Garland"                   
##  [645] "James Foley"                     "Sam Taylor-Johnson"             
##  [647] "Sam Raimi"                       "Billy Crystal"                  
##  [649] "Guy Hamilton"                    "David Fincher"                  
##  [651] "John Huston"                     "Hallie Meyers-Shyer"            
##  [653] "Bille Woodruff"                  "John Hamburg"                   
##  [655] "Federico Fellini"                "John M. Chu"                    
##  [657] "Jon Favreau"                     "Cameron Crowe"                  
##  [659] "Chad Stahelski"                  "James Mangold"                  
##  [661] "Greg Mottola"                    "Peter Howitt"                   
##  [663] "Jonathan Levine"                 "Andrew Niccol"                  
##  [665] "Richard Curtis"                  "Curtis Hanson"                  
##  [667] "Wayne Wang"                      "Phyllida Lloyd"                 
##  [669] "Bobby Farrelly, Peter Farrelly"  "Chris Columbus"                 
##  [671] "Raja Gosnell"                    "Roger Michell"                  
##  [673] "Todd Phillips"                   "Boaz Yakin"                     
##  [675] "Rowdy Herrington"                "Peter Chelsom"                  
##  [677] "Sam Raimi"                       "Frank Capra"                    
##  [679] "Adam McKay"                      "Tom Hanks"                      
##  [681] "Bill Purple"                     "Saul Dibb"                      
##  [683] "Rob Cohen"                       "Robert Rossen"                  
##  [685] "Lisa Cholodenko"                 "Terry George"                   
##  [687] "George Roy Hill"                 "Bobby Farrelly, Peter Farrelly" 
##  [689] "Terence Young"                   "Nancy Meyers"                   
##  [691] "John McNaughton"                 "Ron Howard"                     
##  [693] "Frank Pierson"                   "Adam Shankman"                  
##  [695] "Clint Eastwood"                  "Taylor Hackford"                
##  [697] "Joe Wright"                      "Paul Feig"                      
##  [699] "Andy Cadiff"                     "Jon Favreau"                    
##  [701] "Robert Rodriguez"                "Paul Weitz, Chris Weitz"        
##  [703] "Terence Young"                   "Franc. Reyes"                   
##  [705] "Seth Gordon"                     "Judd Apatow"                    
##  [707] "Zach Braff"                      "Andy Tennant"                   
##  [709] "Paul Weitz"                      "Michelangelo Antonioni"         
##  [711] "Federico Fellini"                "Robert Luketic"                 
##  [713] "Bernie Goldmann, Melisa Wallack" "Bernie Goldmann, Melisa Wallack"
##  [715] "Guillermo del Toro"              "Peter R. Hunt"                  
##  [717] "Jordan Mechner"                  "Joel Coen"                      
##  [719] "undefined"                       "Steven Spielberg"               
##  [721] "Martin Scorsese"                 "Danny Boyle"                    
##  [723] "Robert Wise"                     "Jon Watts"                      
##  [725] "John Curran"                     "Michael Tollin"                 
##  [727] "Lee Toland Krieger"              "David Fincher"                  
##  [729] "David Frankel"                   "Thomas Bezucha"                 
##  [731] "Francis Ford Coppola"            "Francis Ford Coppola"           
##  [733] "Mike Nichols"                    "Nancy Meyers"                   
##  [735] "John Krasinski"                  "Tom Hooper"                     
##  [737] "Howard Deutch"                   "Sydney Pollack"                 
##  [739] "Oliver Stone"                    "David Dobkin"                   
##  [741] "Ben Stiller"                     "Gary Winick"                    
##  [743] "Anne Fletcher"                   "John Glen"                      
##  [745] "Richard Curtis"                  "Baltasar Korm√°kur"             
##  [747] "Kevin Bray"                      "Paul Weitz, Chris Weitz"        
##  [749] "Paul Weitz, Chris Weitz"         "Joe Wright"                     
##  [751] "Michael Bay"                     "Edgar Wright"                   
##  [753] "John Stockwell"                  "Joe & Anthony Russo"            
##  [755] "Dax Shepard"                     "Ron Howard"                     
##  [757] "Mike Nichols"                    "Anthony Minghella"              
##  [759] "Jon M. Chu"                      "Tony Scott"                     
##  [761] "Lasse Hallström"                "Tim Burton"                     
##  [763] "Cameron Crowe"                   "Tom Shadyac"                    
##  [765] "Alex Garland"                    "Nicholas Stoller"               
##  [767] "Guy Hamilton"                    "Ken Kwapis"                     
##  [769] "Mark Waters"                     "David Mirkin"                   
##  [771] "Mark Piznarski"                  "Kevin Smith"                    
##  [773] "Peter Jackson"                   "Mick Jackson"                   
##  [775] "Lynn Shelton"                    "Lee H. Katzin"                  
##  [777] "Robert Luketic"                  "Tom Hooper"                     
##  [779] "Paul Thomas Anderson"            "Mike Newell"                    
##  [781] "Patty Jenkins"                   "Steven Brill"                   
##  [783] "Chris Columbus"                  "Peter R. Hunt"                  
##  [785] "Richard LaGravenese"             "Michael Bay"                    
##  [787] "Angela Robinson"                 "Paul McGuigan"                  
##  [789] "Michael Rymer"                   "Baz Luhrmann"                   
##  [791] "Nora Ephron"                     "Andy Tennant"                   
##  [793] "Jeff Tomsic"                     "Marc Webb"                      
##  [795] "Martin Scorsese"                 "Michael Showalter"              
##  [797] "Sheree Folkson"                  "Larry Charles"                  
##  [799] "Robert De Niro"                  "Nick Cassavetes"                
##  [801] "Wes Anderson"                    "Jonathan Lynn"                  
##  [803] "Courtney Hunt"                   "Rick Famuyiwa"                  
##  [805] "Paul Haggis"                     "Tony Scott"                     
##  [807] "Mark Mylod"                      "Luis Mandoki"                   
##  [809] "Robert Luketic"                  "Patty Jenkins"                  
##  [811] "Ruben Fleischer"                 "Ruben Fleischer"                
##  [813] "Zack Snyder"                     "Jonathan Levine"                
##  [815] "Alfonso Arau"                    "Alfonso Arau"                   
##  [817] "Kevin Bray"                      "Billy Bob Thornton"             
##  [819] "John Hamburg"                    "Sam Mendes"                     
##  [821] "Adam McKay"                      "Joss Whedon"                    
##  [823] "Christopher Nolan"               "Paul Thomas Anderson"           
##  [825] "Paul Thomas Anderson"            "Dagen Merrill"                  
##  [827] "John Crowley"                    "Woody Allen"                    
##  [829] "Kevin Smith"                     "Rob Marshall"                   
##  [831] "Roman Polanski"                  "Guillermo del Toro"             
##  [833] "Terence Young"                   "Damien Chazelle"                
##  [835] "Judd Apatow"                     "George Armitage"                
##  [837] "Dennis Dugan"                    "Mark Piznarski"                 
##  [839] "Theodore Melfi"                  "Chris Rock"                     
##  [841] "Andrew Niccol"                   "Nancy Meyers"                   
##  [843] "Jason Reitman"                   "Judd Apatow"                    
##  [845] "Federico Fellini"                "Anand Tucker"                   
##  [847] "Phyllida Lloyd"                  "Jay Roach"                      
##  [849] "Ari Aster"                       "Baz Luhrmann"                   
##  [851] "P.J. Hogan"                      "Will Gluck"                     
##  [853] "Terry George"                    "Michael Patrick King"           
##  [855] "Matthew Ross"                    "George Tillman Jr."             
##  [857] "George Tillman Jr."              "Duncan Jones"                   
##  [859] "Sam Mendes"                      "Michel Hazanavicius"            
##  [861] "Doug Liman"                      "Yorgos Lanthimos"               
##  [863] "Yorgos Lanthimos"                "Miguel Arteta"                  
##  [865] "Joel Coen"                       "F. Gary Gray"                   
##  [867] "Rob Reiner"                      "Michael Bay"                    
##  [869] "Roland Joffé"                   "David Mamet"                    
##  [871] "McG"                             "Catherine Hardwicke"            
##  [873] "Marc Lawrence"                   "James Mangold"                  
##  [875] "Penelope Spheeris"               "Max Joseph"                     
##  [877] "Woody Allen"                     "Bryan Singer"                   
##  [879] "John Cassavetes"                 "Mira Nair"                      
##  [881] "Sam Mendes"                      "Nicholas Jarecki"               
##  [883] "Julian Jarrold"                  "Wes Anderson"                   
##  [885] "Sharon Maguire"                  "Kenneth Branagh"                
##  [887] "Brad Silberling"                 "Mike Nichols"                   
##  [889] "David McNally"                   "Ang Lee"                        
##  [891] "Tim Miller"                      "Joseph Gordon-Levitt"           
##  [893] "Tony Scott"                      "David Fincher"                  
##  [895] "David Fincher"                   "Andy Tennant"                   
##  [897] "Nicholas Stoller"                "Martin Brest"                   
##  [899] "Mel Gibson"                      "Ken Kwapis"                     
##  [901] "Howard Hawks"                    "Jim Gillespie"                  
##  [903] "Jim Gillespie"                   "Rodman Flender"                 
##  [905] "Ol Parker"                       "Roland Emmerich"                
##  [907] "Ron Howard"                      "Pat O'Connor"                   
##  [909] "Ericson Core"                    "Jason Reitman"                  
##  [911] "Dennis Dugan"                    "Judd Apatow"                    
##  [913] "Valerio Zurlini"                 "Tom Hooper"                     
##  [915] "Tom Shadyac"                     "Amy Heckerling"                 
##  [917] "Paul Weiland"                    "Thea Sharrock"                  
##  [919] "Kelly Makin"                     "Tarsem Singh"                   
##  [921] "Mike Newell"                     "Nicholas Stoller"               
##  [923] "Mimi Leder"                      "Michael Hoffman"                
##  [925] "Gia Coppola"                     "David Lowery"                   
##  [927] "Angela Robinson"                 "Mike Newell"                    
##  [929] "Steven Spielberg"                "Paul Brickman"                  
##  [931] "Kevin Reynolds"                  "undefined"                      
##  [933] "Ava DuVernay"                    "Robert Iscove"                  
##  [935] "Ivan Reitman"                    "Ron Howard"                     
##  [937] "George Tillman Jr."              "Jeff Tomsic"                    
##  [939] "Judd Apatow"                     "Lee Toland Krieger"             
##  [941] "Danny Boyle"                     "Michael Hoffman"                
##  [943] "Christopher Nolan"               "Martin Scorsese"                
##  [945] "James Franco"                    "Josh Boone"                     
##  [947] "Yorgos Lanthimos"                "Nicholas Stoller"               
##  [949] "Mike Nichols"                    "Scott Hicks"                    
##  [951] "Lana Wachowski, Lilly Wachowski" "Marc Webb"                      
##  [953] "Susanna Fogel"                   "Rob Reiner"                     
##  [955] "Michael Sucsy"                   "Judd Apatow"                    
##  [957] "Catherine Hardwicke"             "Catherine Hardwicke"            
##  [959] "Jordan Peele"                    "David Dobkin"                   
##  [961] "Ron Shelton"                     "Steve McQueen"                  
##  [963] "Bryan Singer"                    "Gil Junger"                     
##  [965] "J.C. Chandor"                    "Paul Feig"                      
##  [967] "Tony Goldwyn"                    "Tom Shadyac"                    
##  [969] "Guy Ritchie"                     "Rob Reiner"                     
##  [971] "Peter Segal"                     "Alex Garland"                   
##  [973] "Jay Roach"                       "Timur Bekmambetov"              
##  [975] "Dennis Dugan"                    "Paul Feig"                      
##  [977] "Ang Lee"                         "Lasse Hallström"               
##  [979] "Glenn Ficarra, John Requa"       "Glenn Ficarra, John Requa"      
##  [981] "Peter Hedges"                    "Ivan Reitman"                   
##  [983] "Scott Derrickson"                "Paul Mazursky"                  
##  [985] "Ron Howard"                      "Will Gluck"                     
##  [987] "Tim Burton"                      "Kevin Lima"                     
##  [989] "Jean-Jacques Annaud"             "David Yates"                    
##  [991] "Sam Taylor-Johnson"              "Mike Newell"                    
##  [993] "Will Gluck"                      "Martin Scorsese"                
##  [995] "Douglas McGrath"                 "Ol Parker"                      
##  [997] "Pat O'Connor"                    "Yann Samuell"                   
##  [999] "Colin Trevorrow"                 "Wayne Wang"                     
## [1001] "Massy Tadjedin"                  "Federico Fellini"               
## [1003] "Robert Luketic"                  "Steven Brill"                   
## [1005] "Gina Prince-Bythewood"           "Edward Zwick"                   
## [1007] "Arthur Hiller"                   "Mike Newell"                    
## [1009] "Mike Judge"                      "Todd Phillips"                  
## [1011] "Jason Moore"                     "Otto Bathurst"                  
## [1013] "Rob Reiner"                      "John Hamburg"                   
## [1015] "Michael Patrick King"            "John Madden"                    
## [1017] "Emile Ardolino"                  "Sanaa Hamri"                    
## [1019] "Jon Watts"                       "Jeff Tomsic"                    
## [1021] "Jeff Tomsic"                     "Danny Boyle"                    
## [1023] "Eric Bress, J. Mackye Gruber"    "Anthony Minghella"              
## [1025] "Thomas Bezucha"                  "Thomas Bezucha"                 
## [1027] "David Fincher"                   "Robert De Niro"                 
## [1029] "Francis Lawrence"                "Lisa Cholodenko"                
## [1031] "Stephen T. Kay"                  "Stephen Sommers"                
## [1033] "Nick Cassavetes"                 "Nick Cassavetes"                
## [1035] "Nick Cassavetes"                 "Rebecca Miller"                 
## [1037] "Chris Weitz"                     "Michael Sucsy"                  
## [1039] "Rick Famuyiwa"                   "Jean-Marc Vallée"              
## [1041] "Kenneth Branagh"                 "Kevin Reynolds"                 
## [1043] "Catherine Hardwicke"             "Denise Di Novi"                 
## [1045] "Dustin Lance Black"              "James Mangold"                  
## [1047] "Randall Wallace"                 "John Hamburg"                   
## [1049] "Marc Webb"                       "Adrian Lyne"                    
## [1051] "Brian Helgeland"                 "Luis Mandoki"                   
## [1053] "Baz Luhrmann"                    "Seth Gordon"                    
## [1055] "Michael Lehmann"                 "Richard Linklater"              
## [1057] "Dennis Dugan"                    "Blake Edwards"                  
## [1059] "Andy Serkis"                     "Ang Lee"                        
## [1061] "Ang Lee"                         "Joe Johnston"                   
## [1063] "Lasse Hallström"                "Homi Adajania"                  
## [1065] "Rawson Marshall Thurber"         "Terence Young"                  
## [1067] "Bobby Farrelly, Peter Farrelly"  "Lawrence Kasdan"                
## [1069] "F. Gary Gray"                    "Jordan Peele"                   
## [1071] "James Gunn"                      "Brian Robbins"                  
## [1073] "Ken Kwapis"                      "Craig Brewer"                   
## [1075] "John M. Chu"                     "Christopher Nolan"              
## [1077] "Adrian Lyne"                     "Jason Reitman"                  
## [1079] "John Fortenberry"                "Greta Gerwig"                   
## [1081] "Matthew Vaughn"                  "Anand Tucker"                   
## [1083] "Noah Baumbach"                   "Donald Petrie"                  
## [1085] "Chris Wedge"                     "Garry Marshall"                 
## [1087] "Joel Zwick"                      "Peter R. Hunt"                  
## [1089] "Michael Bay"                     "Joe Wright"                     
## [1091] "Paul Thomas Anderson"            "Darren Aronofsky"               
## [1093] "Tim Story"                       "Francis Ford Coppola"           
## [1095] "Ang Lee"                         "Anand Tucker"                   
## [1097] "Rawson Marshall Thurber"         "Dewey Nicks"                    
## [1099] "J.J. Abrams"                     "King Vidor"                     
## [1101] "Sylvain White"                   "Gary Winick"                    
## [1103] "Martin Scorsese"                 "Peyton Reed"                    
## [1105] "Martin Scorsese"                 "Jacob Aaron Estes"              
## [1107] "Thomas Bezucha"                  "Michael Mann"                   
## [1109] "Ridley Scott"                    "John Curran"                    
## [1111] "Phil Alden Robinson"             "James Marsh"                    
## [1113] "John McTiernan"                  "McG"                            
## [1115] "James Cameron"                   "Peter Segal"                    
## [1117] "Michael Bay"                     "Wolfgang Petersen"              
## [1119] "Adrian Lyne"                     "Denise Di Novi"                 
## [1121] "John Patrick Shanley"            "Stephen Chbosky"                
## [1123] "Matthew Vaughn"                  "Harold Ramis"                   
## [1125] "Danny Boyle"                     "Gil Junger"                     
## [1127] "Judy Greer"                      "Paul Feig"                      
## [1129] "David O. Russell"                "Paul Weitz, Chris Weitz"        
## [1131] "Derek Cianfrance"                "Steven Spielberg"               
## [1133] "Rob Marshall"                    "Tyler Perry"                    
## [1135] "Franc. Reyes"                    "Gus Van Sant"                   
## [1137] "Ken Kwapis"                      "Chen Kaige"                     
## [1139] "Steven Soderbergh"               "Thea Sharrock"                  
## [1141] "Mike Newell"                     "Catherine Hardwicke"            
## [1143] "Jim Field Smith"                 "Dewey Nicks"                    
## [1145] "George Tillman Jr."              "James L. Brooks"                
## [1147] "Jan de Bont"                     "Jon Watts"                      
## [1149] "Alan Shapiro"                    "Nancy Meyers"                   
## [1151] "Francis Lawrence"                "Alejandro Agresti"              
## [1153] "Dome Karukoski"                  "Michael Bay"                    
## [1155] "Matthew Vaughn"
str_detect(data$director, "Woody")
##    [1] FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE  TRUE FALSE FALSE FALSE
##   [13] FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE  TRUE
##   [25] FALSE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
##   [37] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
##   [49]  TRUE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE
##   [61] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE 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  TRUE 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]  TRUE 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  TRUE 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  TRUE FALSE FALSE FALSE
##  [277] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
##  [289] FALSE FALSE FALSE FALSE  TRUE 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  TRUE 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  TRUE 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  TRUE 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]  TRUE 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  TRUE 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  TRUE
##  [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]  TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
##  [889] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
##  [901] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
##  [913] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
##  [925] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
##  [937] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
##  [949] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
##  [961] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
##  [973] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
##  [985] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
##  [997] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [1009] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [1021] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [1033] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [1045] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [1057] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [1069] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [1081] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [1093] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [1105] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [1117] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [1129] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [1141] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [1153] FALSE FALSE FALSE
sum(str_detect(data$director, "Woody"))
## [1] 20
data %>% 
    summarise(num_Woody = sum(str_detect(director, "Woody")))
## # A tibble: 1 × 1
##   num_Woody
##       <int>
## 1        20

Extract matches

data %>%
    mutate(col_Woody = str_extract(director, "Woody")) %>% 
    select(director, col_Woody) %>%
    filter(is.na(col_Woody))
## # A tibble: 1,135 × 2
##    director             col_Woody
##    <chr>                <chr>    
##  1 Hal Ashby            <NA>     
##  2 Roger Michell        <NA>     
##  3 Phillip Noyce        <NA>     
##  4 Joel Coen            <NA>     
##  5 Mike Mills           <NA>     
##  6 Katt Shea            <NA>     
##  7 Jon Amiel            <NA>     
##  8 Paul Thomas Anderson <NA>     
##  9 Steven Spielberg     <NA>     
## 10 Irving Pichel        <NA>     
## # ℹ 1,125 more rows

Replacing matches

data %>% 
    mutate(col_John = str_replace(director, "Woody", "John")) %>% 
    select(director, col_John)
## # A tibble: 1,155 × 2
##    director             col_John            
##    <chr>                <chr>               
##  1 Hal Ashby            Hal Ashby           
##  2 Roger Michell        Roger Michell       
##  3 Phillip Noyce        Phillip Noyce       
##  4 Joel Coen            Joel Coen           
##  5 Mike Mills           Mike Mills          
##  6 Katt Shea            Katt Shea           
##  7 Woody Allen          John Allen          
##  8 Jon Amiel            Jon Amiel           
##  9 Woody Allen          John Allen          
## 10 Paul Thomas Anderson Paul Thomas Anderson
## # ℹ 1,145 more rows