No dia 8 de maio o mundo da música ficou mais careta: Rita Lee, a rainha do rock brasileiro, padroeira da liberdade, a santa rita de sampa, nos deixou, mas não sem antes deixar um grande legado de obras, letras, frases.

O intuito desse artigo é homenagear Rita Lee a partir de uma análise de sua obra usando R. Das R-Ladies de São Paulo para a mais icônica “Mina de Sampa”.

Dica

Esse post contém alguns trocadilhos e referências musicais. Dá o play na playlist abaixo e chega mais, chega mais

1. Análise das músicas com spotifyR

1.1. Esse tal de R

Para começar, é preciso carregar alguns pacotes:

library(tidyverse)
library(spotifyr)
library(highcharter)
library(ggridges)
library(DT)

gerar_tabela <- function(tbl) {
  # knitr::kable(
  #   tbl
  # )
  gt::gt(tbl)
}

Primeiro, devemos configurar os dados da API do Spotify. Aqui tem um tutorialzinho explicando como obter seu Client ID e o token de acesso. No blog da Curso-R também mostra como criar seus tokens de acesso na API do Spotify (com o pacote Rspotify, que é diferente do que vamos usar aqui, mas o início é o mesmo!).

Com o ambiente configurado, podemos requisitar as características de áudio das faixas qualquer artista presente na plataforma! Isso é feito com a função get_artist_audio_features do pacote spotifyR.

Nessa análise, vamos coletar os atributos das faixas da Rita Lee e analisar alguns deles.

rita_features <- read_csv("data-raw/rita_features.csv")
glimpse(rita_features)

Rows: 411
Columns: 39
$ artist_name                  <chr> "Rita Lee", "Rita Lee", "Rita Lee", "Rita…
$ artist_id                    <chr> "7dnT2FUXhjirperXaH22IJ", "7dnT2FUXhjirpe…
$ album_id                     <chr> "0rZu9DYrrdzdOUQ7Nm2QB8", "0rZu9DYrrdzdOU…
$ album_type                   <chr> "album", "album", "album", "album", "albu…
$ album_images                 <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ album_release_date           <chr> "2021-06-25", "2021-06-25", "2021-06-25",…
$ album_release_year           <dbl> 2021, 2021, 2021, 2021, 2021, 2021, 2021,…
$ album_release_date_precision <chr> "day", "day", "day", "day", "day", "day",…
$ danceability                 <dbl> 0.735, 0.802, 0.755, 0.821, 0.852, 0.656,…
$ energy                       <dbl> 0.513, 0.638, 0.712, 0.769, 0.715, 0.734,…
$ key                          <dbl> 2, 2, 5, 9, 0, 4, 2, 2, 5, 0, 0, 2, 6, 11…
$ loudness                     <dbl> -9.369, -7.968, -7.696, -9.791, -8.402, -…
$ mode                         <dbl> 1, 1, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 0, 0,…
$ speechiness                  <dbl> 0.0299, 0.0319, 0.0397, 0.0707, 0.0427, 0…
$ acousticness                 <dbl> 0.031100, 0.005490, 0.000466, 0.001490, 0…
$ instrumentalness             <dbl> 0.414000, 0.023400, 0.258000, 0.726000, 0…
$ liveness                     <dbl> 0.1160, 0.2160, 0.2210, 0.0469, 0.0426, 0…
$ valence                      <dbl> 0.5470, 0.6850, 0.8350, 0.4380, 0.6770, 0…
$ tempo                        <dbl> 119.978, 127.982, 127.986, 125.000, 123.0…
$ track_id                     <chr> "4CFOKrbwh1FuR5xBvOWG2R", "1VM1W9cMkrHmrX…
$ analysis_url                 <chr> "https://api.spotify.com/v1/audio-analysi…
$ time_signature               <dbl> 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4,…
$ artists                      <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ available_markets            <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ disc_number                  <dbl> 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,…
$ duration_ms                  <dbl> 356886, 216585, 369843, 524638, 320488, 2…
$ explicit                     <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ track_href                   <chr> "https://api.spotify.com/v1/tracks/4CFOKr…
$ is_local                     <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ track_name                   <chr> "Só De Você - Coppola Remix", "Pega Rapaz…
$ track_preview_url            <chr> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ track_number                 <dbl> 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13…
$ type                         <chr> "track", "track", "track", "track", "trac…
$ track_uri                    <chr> "spotify:track:4CFOKrbwh1FuR5xBvOWG2R", "…
$ external_urls.spotify        <chr> "https://open.spotify.com/track/4CFOKrbwh…
$ album_name                   <chr> "Rita Lee & Roberto - Classix Remix Vol. …
$ key_name                     <chr> "D", "D", "F", "A", "C", "E", "D", "D", "…
$ mode_name                    <chr> "major", "major", "major", "major", "majo…
$ key_mode                     <chr> "D major", "D major", "F major", "A major…

Aqui já conseguimos ver que o dataframe resultante dessa requisição tem 39 colunas e 411 linhas, que correspondem a cada faixa da cantora. Há uma coluna com o formato errado, a album_release_date, que é a data de lançamento do álbum (não usaremos esse atributo na análise, mas é bom saber :D)

Importante

Alguns álbuns são homônimos (ou seja, têm o mesmo nome), são coletâneas e/ou remixes. Tem que considerar isso na análise!

Quantas faixas cada álbum tem? Há algumas maneiras de fazer isso, mas vou utilizar o “GSA” (as funções group_by,summarise e arrange do pacote dplyr):

rita_features |>
  group_by(album_name, album_release_year) |>
  summarise(faixas = n()) |>
  arrange(desc(faixas)) |>
  gerar_tabela()

Quantidade de faixas por álbum
album_release_year	faixas
Em Bossa 'N Roll (Edição Comemorativa - 25 Anos) - Ao Vivo
1991	21
Acustico (Live)
1998	18
Lanca Perfume E Outras Manias
1998	18
Rita Lee Em Bossa 'N Roll (Ao Vivo)
1991	18
Rita Lee & Roberto - Classix Remix Vol. III
2021	17
Rita Lee
1979	16
1993	13
1980	8
Rita Releeda
2000	16
Ao Vivo
2004	14
Aqui, Ali, Em Qualquer Lugar
2006	14
Multishow Ao Vivo
2009	14
Reza
2012	14
Bombom
1983	13
Pérolas
2016	13
Rita Lee & Roberto - Classix Remix Vol. II
2021	13
Balacobaco
2003	12
Rita Lee & Roberto – Classix Remix Vol. l
2021	12
Rita Lee 3001
2000	12
Santa Rita De Sampa
1997	12
Build Up
1970	11
Refestança (Ao Vivo)
1977	11
Atrás Do Porto Tem Uma Cidade
1974	10
Flerte Fatal
1987	10
Hoje É O Primeiro Dia Do Resto Da Sua Vida
1972	10
Rita Lee E Roberto De Carvalho
1990	10
Babilônia
1978	9
Entradas E Bandeiras
1976	9
Flagra
1982	9
Fruto Proibido
1975	9
Rita E Roberto
1985	9
Saúde
1981	8
Zona Zen
1988	8