billboard100 <- structure(list(date = c("2021-11-06", "2021-11-06", "2021-11-06",
"2021-11-06", "2021-11-06", "2021-11-06"), rank = 1:6, song = c("Easy On Me",
"Stay", "Industry Baby", "Fancy Like", "Bad Habits", "Way 2 Sexy"
), artist = c("Adele", "The Kid LAROI & Justin Bieber", "Lil Nas X & Jack Harlow",
"Walker Hayes", "Ed Sheeran", "Drake Featuring Future & Young Thug"
), last.week = 1:6, peak.rank = c(1L, 1L, 1L, 3L, 2L, 1L), weeks.on.board = c(3L,
16L, 14L, 19L, 18L, 8L)), row.names = c(NA, 6L), class = "data.frame")
library(tidyverse)
library(lubridate)
billboard100 %>% select(-last.week,-peak.rank) %>%
mutate(date = ymd(date),
split_artist = str_split_fixed(artist,
"Featuring",
2)
)