Os Melhores Álbuns de Estreia da História da Música Segundo o Rate Your Music

Conforme comentei em meu último post(Encontrando Outliers nas Avaliações do Rate Your Music), estou analisando um conjunto de dados chamado Rate Your Music: The Top 5,000 Most Popular Albums. Enquanto no post anterior eu procurei por observações anômalas no conjunto de dados, neste quero encontrar quais são os melhores álbuns de estreia da história da música.

Como não custa lembrar, há uma série de limitações neste conjunto de dados. Algumas delas foram discutidas aqui. Seguem os passos da análise, começando com a leitura e preparação dos dados:

library(tidyverse)
library(knitr)
library(kableExtra)

rym <- 
  read_csv(file = "~/Downloads/rym/rate_your_music.csv") |> 
  select(-1) |> 
  separate(primary_genres, into = "genre_1", extra = "drop", remove = FALSE, sep = ",") |> 
  mutate(artist_name = gsub("^The ", "", artist_name))

rym_first_albums <- 
  rym |> 
  group_by(artist_name) |> 
  slice_min(release_date) |> 
  ungroup()

O objeto rym_first_albums possui apenas os primeiros álbuns de cada artista. Isso gera um problema, que veremos mais tarde com a banda argentina Soda Stereo. Apenas o seu sexto álbum está presente no conjunto de dados original e, ao usar o comando slice_min(release_date), este acaba sendo entendido como o primeiro álbum geral da banda. Isso se deve ao fato de os cinco primeiros discos não estarem disponíveis no conjunto de dados e, assim, tive que corrigir manualmemte essa divergência.

Pelo que pude perceber, isso só aconteceu uma vez durante a análise. Nenhum outro artista teve esse problema.

O primeiro resultado a ser obtido são os melhores álbuns de estreia geral, sem discriminação por gênero musical.

rym_first_albums |> 
  arrange(desc(avg_rating)) |> 
  head(n = 10) |> 
  select(artist_name, release_name, release_date, genre_1, avg_rating) |> 
  kable() |> 
  kable_minimal()

Charles Mingus, um jazzista, acabou recebendo o título de melhor disco de estreia da história segundo os usuários do site Rate Your Music. Eu gosto de jazz, mas meu gênero musical preferido é rock, em particular rock alternativo. Embora haja alguns artistas considerados como rock na lista (King Crimson, Velvet Underground, Godspeed You Black Emperor! e Television), eu gostaria de refinar essa análise usando apenas artistas dos meus gêneros preferidos.

A seguir estão os melhores álbuns de estreia da história considerando qualquer gênero de rock (pop rock, punk rock, alternative rock etc):

rym_first_albums |> 
  filter(grepl("Rock", primary_genres)) |> 
  arrange(desc(avg_rating)) |> 
  head(n = 10) |> 
  select(artist_name, release_name, release_date, genre_1, avg_rating) |> 
  kable() |> 
  kable_minimal()

Estes são os dez melhores álbuns de estreia da história se o álbum foi classificado como Alternative Rock, não necessariamente sendo esse seu gênero principal (aqui aparece o disco Dynamo do Soda Stereo, que não é seu primeiro):

rym_first_albums |> 
  filter(grepl("Alternative Rock", primary_genres)) |> 
  arrange(desc(avg_rating)) |> 
  head(n = 10) |> 
  select(artist_name, release_name, release_date, genre_1, avg_rating) |> 
  kable() |> 
  kable_minimal()

E, por fim, os dez melhores álbuns de estreia da história se o álbum foi classificado como Alternative Rock, sendo esse seu gênero principal:

rym_first_albums |> 
  filter(grepl("Alternative Rock", genre_1)) |> 
  arrange(desc(avg_rating)) |> 
  head(n = 10) |> 
  select(artist_name, release_name, release_date, genre_1, avg_rating) |> 
  kable() |> 
  kable_minimal()

Além da diversão, criei esta análise para gerar discussões e procurar coisas novas para ouvir. Devo dizer que, da lista geral de melhores álbuns, ainda não tinha ouvido Charles Mingus, que é um cool jazz excelente, e Madvillain, um tipo de hip hop que me cativou (e eu nem gosto de hip hop).