polls <- readr::read_csv('https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2020/2020-04-14/polls.csv')## Rows: 535 Columns: 9
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (7): title, artist, gender, critic_name, critic_rols, critic_country, cr...
## dbl (2): rank, year
##
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.rankings <- readr::read_csv('https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2020/2020-04-14/rankings.csv')## Rows: 311 Columns: 12
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (3): title, artist, gender
## dbl (9): ID, year, points, n, n1, n2, n3, n4, n5
##
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.rankings$artist## [1] "The Notorious B.I.G."
## [2] "Public Enemy"
## [3] "Mobb Deep"
## [4] "Grandmaster Flash & The Furious Five"
## [5] "Dr Dre ft. Snoop Doggy Dogg"
## [6] "Wu-Tang Clan"
## [7] "Souls of Mischief"
## [8] "The Pharcyde"
## [9] "Nas"
## [10] "2Pac"
## [11] "Kanye West ft. Pusha T"
## [12] "Eric B & Rakim"
## [13] "Sugarhill Gang"
## [14] "Pete Rock & C.L. Smooth"
## [15] "NWA"
## [16] "A Tribe Called Quest"
## [17] "OutKast"
## [18] "Ice Cube"
## [19] "Queen Latifah"
## [20] "Lauryn Hill"
## [21] "Eminem"
## [22] "UGK ft. OutKast"
## [23] "OutKast"
## [24] "Kanye West"
## [25] "Kendrick Lamar"
## [26] "Clipse"
## [27] "Public Enemy"
## [28] "The Fugees"
## [29] "Wu-Tang Clan"
## [30] "Nas ft. A.Z."
## [31] "Wu-Tang Clan"
## [32] "2Pac ft. Talent"
## [33] "Jay Electronica"
## [34] "2Pac"
## [35] "Afrika Bambaataa & The Soulsonic Force"
## [36] "Run DMC"
## [37] "Run DMC"
## [38] "Lauryn Hill"
## [39] "Missy Elliott"
## [40] "2Pac ft. Dr Dre"
## [41] "Dead Prez"
## [42] "De La Soul"
## [43] "Kanye West ft. Rihanna & Kid Cudi"
## [44] "Kanye West"
## [45] "Nas ft. Lauryn Hill"
## [46] "50 Cent"
## [47] "DMX"
## [48] "Missy Elliott"
## [49] "Future"
## [50] "Nelly"
## [51] "JAY-Z"
## [52] "The Notorious B.I.G. ft. Method Man"
## [53] "Lil Wayne"
## [54] "Kendrick Lamar"
## [55] "Geto Boys"
## [56] "Public Enemy"
## [57] "A Tribe Called Quest"
## [58] "Eminem ft. Dido"
## [59] "Dr Dre ft. Snoop Dogg"
## [60] "OutKast"
## [61] "Missy Elliott"
## [62] "OutKast"
## [63] "Nas"
## [64] "Cardi B"
## [65] "The Notorious B.I.G."
## [66] "Luniz"
## [67] "Outkast"
## [68] "Wu-Tang Clan"
## [69] "Gang Starr"
## [70] "Kanye West ft. Rihanna & Kid Cudi"
## [71] "Eric B & Rakim"
## [72] "B.G."
## [73] "2Pac"
## [74] "JAY-Z"
## [75] "Eric B & Rakim"
## [76] "Double Trouble"
## [77] "Eric B & Rakim"
## [78] "Rakim"
## [79] "Black Vulcanite"
## [80] "The Notorious B.I.G. ft. JAY-Z & Angela Winbush"
## [81] "The Diplomats"
## [82] "Lupe Fiasco"
## [83] "Missy Elliot ft. Ciara and Fatman Scoop"
## [84] "Nas"
## [85] "Gang Starr"
## [86] "Lupe Fiasco"
## [87] "Ras Kass"
## [88] "JAY-Z"
## [89] "Ghostface Killah"
## [90] "Nas"
## [91] "Slum Village"
## [92] "E-40 feat B-Legit & Mac Shon"
## [93] "NWA"
## [94] "Public Enemy"
## [95] "Skepta ft. Jme"
## [96] "Das EFX"
## [97] "The Notorious B.I.G."
## [98] "Audio Two"
## [99] "Skwatta Kamp"
## [100] "Clipse"
## [101] "Grandmaster Melle Mel"
## [102] "Wiley"
## [103] "Wu-Tang Clan"
## [104] "Kanye West"
## [105] "Kanye West"
## [106] "Lupe Fiasco"
## [107] "NWA"
## [108] "JAY-Z"
## [109] "Gza ft. Ghostface Killah & Killah Priest & RZA"
## [110] "Gang Starr ft. Inspectah Deck"
## [111] "JAY-Z ft. Foxy Brown"
## [112] "Outkast"
## [113] "Kendrick Lamar"
## [114] "KRS-One"
## [115] "Lil Wayne"
## [116] "Ghostface Killah ft. Madam Majestic & U-God"
## [117] "Method Man and Redman"
## [118] "Kid Cudi"
## [119] "JAY-Z"
## [120] "Rich Gang"
## [121] "Craig Mack"
## [122] "Too $hort"
## [123] "The LOX"
## [124] "The Coup"
## [125] "Stogie T"
## [126] "Mos Def"
## [127] "Canibus"
## [128] "Kendrick Lamar"
## [129] "Young Fathers"
## [130] "Puff Daddy ft. Faith Evans and 112"
## [131] "IAM"
## [132] "Lupe Fiasco"
## [133] "Onyx"
## [134] "OutKast"
## [135] "JAY-Z"
## [136] "JAY-Z"
## [137] "UGK"
## [138] "Yasiin Bey (Mos Def)"
## [139] "A Tribe Called Quest"
## [140] "Stop The Violence Movement"
## [141] "DMX"
## [142] "2Pac"
## [143] "ProKid"
## [144] "Nicki Minaj"
## [145] "YoungstaCPT"
## [146] "SpaceGhostPurrp"
## [147] "BDP"
## [148] "Nas"
## [149] "Kanye West"
## [150] "Big Daddy Kane"
## [151] "Project Pat"
## [152] "Busta Rhymes"
## [153] "Rammellzee & K Rob"
## [154] "2Pac"
## [155] "JAY-Z"
## [156] "JAY-Z"
## [157] "The Roots"
## [158] "Madvillain"
## [159] "Orishas"
## [160] "A Tribe Called Quest"
## [161] "Master P"
## [162] "JAY-Z"
## [163] "Kendrick Lamar ft. Gunplay"
## [164] "Slick Rick"
## [165] "OutKast"
## [166] "BOB"
## [167] "Junior M.A.F.I.A. ft. The Notorious B.I.G."
## [168] "EPMD"
## [169] "A Tribe Called Quest"
## [170] "Das Racist"
## [171] "Waka Flocka Flame"
## [172] "Nas"
## [173] "Nas ft. Quan"
## [174] "Eric B & Rakim"
## [175] "BIG K.R.I.T"
## [176] "Ja Rule ft. Case"
## [177] "Common"
## [178] "Eric B & Rakim"
## [179] "Future"
## [180] "Gang Starr"
## [181] "Aceyalone"
## [182] "Akua Naru"
## [183] "JAY-Z & Kanye West"
## [184] "Lil Nas X ft. Billy Ray Cyrus"
## [185] "Bohan Phoenix"
## [186] "M.I.A."
## [187] "Run DMC"
## [188] "Kendrick Lamar"
## [189] "Salt-N-Pepa"
## [190] "Big L"
## [191] "Lil’ Kim"
## [192] "Frank Ocean"
## [193] "Mike Jones"
## [194] "Stogie T"
## [195] "Kendrick Lamar"
## [196] "Kendrick Lamar"
## [197] "JAY-Z"
## [198] "Issam"
## [199] "Raekwon ft. Ghostface Killah and Nas"
## [200] "Tanya ‘Sweet Tee’ Winley"
## [201] "Lil Boosie"
## [202] "Drake"
## [203] "The Roots ft. Erykah Badu"
## [204] "Slick Rick"
## [205] "Roots Manuva"
## [206] "ASAP Rocky"
## [207] "2Pac"
## [208] "A Tribe Called Quest"
## [209] "Sir Mix-A-Lot"
## [210] "Tyler The Creator"
## [211] "Goodie Mob ft. OutKast"
## [212] "Eazy-E"
## [213] "A Tribe Called Quest"
## [214] "JAY-Z"
## [215] "Mac Dre"
## [216] "Frankie HI-NRG MC"
## [217] "Talib Kweli"
## [218] "Travis Scott ft. Kendrick Lamar"
## [219] "Lil Wayne"
## [220] "Earl Sweatshirt"
## [221] "Juvenile"
## [222] "Roxanne Shante"
## [223] "Alchemist ft. Nina Sky & Prodigy & Illa Ghee"
## [224] "JAY-Z"
## [225] "Janelle Monae"
## [226] "Dizzee Rascal"
## [227] "Lauryn Hill ft. Mary J Blige"
## [228] "Kanye West"
## [229] "Death Grips"
## [230] "Puff Daddy ft. The Notorious B.I.G. & Lil’ Kim & The LOX"
## [231] "3X Krazy"
## [232] "Yung Lean"
## [233] "Doug E Fresh & The Get Fresh Crew"
## [234] "Lil Wayne"
## [235] "Erykah Badu ft. Common"
## [236] "J Cole"
## [237] "Eminem"
## [238] "Foxy Brown"
## [239] "Wizkid ft. Drake & Skepta"
## [240] "UGK"
## [241] "GLOBE & Whiz Kid"
## [242] "Dr Dre ft. B-Real"
## [243] "Mobb Deep"
## [244] "Mobb Deep ft. Lil’ Kim"
## [245] "JAY-Z ft. Eminem"
## [246] "Black Star ft. Common"
## [247] "AKA"
## [248] "Three 6 Mafia ft. UGK"
## [249] "The Notorious B.I.G ft. 112"
## [250] "Little Brother"
## [251] "Beastie Boys"
## [252] "Missy Elliott ft. Da Brat"
## [253] "E.S.G."
## [254] "Bone Thugs-N-Harmony"
## [255] "East Flatbush Project"
## [256] "Snoop Dogg"
## [257] "Madvillain"
## [258] "Kanye West ft. Syleena Johnson"
## [259] "Killah Priest"
## [260] "Gunplay"
## [261] "JAY-Z ft. UGK"
## [262] "Kendrick Lamar"
## [263] "Juggaknots"
## [264] "Jurassic 5"
## [265] "OutKast"
## [266] "Wu-Tan Clan"
## [267] "Lord Tariq & Peter Gunz"
## [268] "Diplomats ft. Juelz Santana & Cam’ron"
## [269] "Kendrick Lamar"
## [270] "Lil Wayne"
## [271] "Dr Dre ft. Snoop Doggy Dogg"
## [272] "Drake"
## [273] "Kanye West ft. Jamie Foxx"
## [274] "Kreayshawn"
## [275] "JAY-Z"
## [276] "Drake ft. Lil Wayne"
## [277] "Common"
## [278] "Cypress Hill"
## [279] "Ice Cube"
## [280] "Common"
## [281] "Akhenaton"
## [282] "XXXTENTACION"
## [283] "Main Source"
## [284] "Kanye West ft. Bon Iver"
## [285] "Run The Jewels ft. Gangsta Boo"
## [286] "Chief Keef"
## [287] "Future"
## [288] "Kendrick Lamar"
## [289] "Shabjdeed & Al Nather"
## [290] "Kanyi"
## [291] "Drake"
## [292] "Blackstreet ft. Dr Dre and Queen Pen"
## [293] "Naughty By Nature"
## [294] "Young Thug"
## [295] "Eric B & Rakim"
## [296] "Missy Elliott"
## [297] "Megan Thee Stallion"
## [298] "JAY-Z"
## [299] "Joe ft. G-Unit"
## [300] "Beastie Boys"
## [301] "D4L"
## [302] "King Giddra"
## [303] "Salt-N-Pepa"
## [304] "Big Tymers"
## [305] "Kurtis Blow"
## [306] "Rich Boy"
## [307] "O.C."
## [308] "Future"
## [309] "The Notorious B.I.G."
## [310] "J.T. Money ft. Solé"
## [311] "Foxx & Lil Boosie & Webbie"str_detect(rankings$artist, "2Pac")## [1] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE TRUE FALSE FALSE
## [13] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [25] FALSE FALSE FALSE FALSE FALSE FALSE FALSE TRUE FALSE TRUE FALSE FALSE
## [37] FALSE FALSE FALSE TRUE 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] TRUE 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 TRUE FALSE FALSE
## [145] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE TRUE 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 TRUE 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 FALSEsum (str_detect(rankings$artist, "2Pac"))## [1] 8rankings %>%
summarise(num_Nas = sum(str_detect(artist, "Nas")))## # A tibble: 1 × 1
## num_Nas
## <int>
## 1 11rankings %>%
mutate(col_2Pac = str_extract(artist, "2Pac")) %>%
select(artist, col_2Pac) %>%
filter(!is.na(col_2Pac))## # A tibble: 8 × 2
## artist col_2Pac
## <chr> <chr>
## 1 2Pac 2Pac
## 2 2Pac ft. Talent 2Pac
## 3 2Pac 2Pac
## 4 2Pac ft. Dr Dre 2Pac
## 5 2Pac 2Pac
## 6 2Pac 2Pac
## 7 2Pac 2Pac
## 8 2Pac 2Pacrankings %>%
mutate(col_Nas = str_replace(artist, "Nas", "2Pac")) %>%
select(artist, col_Nas)## # A tibble: 311 × 2
## artist col_Nas
## <chr> <chr>
## 1 The Notorious B.I.G. The Notorious B.I.G.
## 2 Public Enemy Public Enemy
## 3 Mobb Deep Mobb Deep
## 4 Grandmaster Flash & The Furious Five Grandmaster Flash & The Furious Five
## 5 Dr Dre ft. Snoop Doggy Dogg Dr Dre ft. Snoop Doggy Dogg
## 6 Wu-Tang Clan Wu-Tang Clan
## 7 Souls of Mischief Souls of Mischief
## 8 The Pharcyde The Pharcyde
## 9 Nas 2Pac
## 10 2Pac 2Pac
## # ℹ 301 more rows