RSpotify: Dados de Música com R

Se você me conhece, já deve saber que usei como exemplo o Raça Negra só pra usar o meme do garotinho e a planta no título. Sim, esse é o senso de humor desse que vos escreve. Mas dando continuidade a editoria de tutoriais dessa vez vou apresentar um tutorial do RSpotify, que me foi apresentado pelo brasileiro Tiago Dantas.

Eu acabei tendo que desenvolver algumas expertises com esse pacote por estar envolvido em uma campanha envolvendo cantores e precisar encontrar outros artistas com a mesma pegada dos que estou analisando( e digo que foi de grande ajuda) para segmentação de interesse/mídia.  🥤

Como dito no início do texto, esse tutorial usa os dados da banda Raça Negra, grupo de pagode que teve início nos anos 80 e foi responsável por marcar gerações com músicas como ‘Cheia de manias‘, ‘Cigana‘ e ‘É tarde demais‘.

Indo direto pro código:

# Eliminando dados anterior/salvo.
rm(list = ls())
 
# alterando o diretório de trabalho
setwd("INSERIR SEU DIRETÓRIO")
 
 
##########################
 
# Checando se os pacotes estão instalados, instalando os faltantes e executando todos os pacotes necessários
if(!require(devtools)){
  install.packages("devtools")
  library(devtools)
}
 
if(!require(Rspotify)){
  install_github("tiagomendesdantas/Rspotify")
  library(Rspotify)
}

Para fazer a requisição dos dados será necessário criar um app dentro da plataforma de desenvolvedores do Spotify (bastar ir em My Apps e criar o seu aplicativo). Gerado o seu app_id (na plataforma está como ‘Application Name’), client_id e client_secret podemos seguir para o pedido de autenticação.

# Acessando a API do Spotify
app_id <- "API_Toth" # aqui entra o nome que você deu para a aplicação
client_id <- "SEU CLIENT_ID" # Inserrir client_id
client_secret <- "SEU CLIENT_SECRET" #Inserir Client_secret
 
# Aglutinando as chaves de acesso
keys <- spotifyOAuth(app_id,client_id,client_secret)
 
# Ele abrirá como resposta o seu navegador para autenticação
# Waiting for authentication in browser...
# Press Esc/Ctrl + C to abort
# Authentication complete.

Como primeira busca vamos começar com algo mais simples: buscar por dados de um usuário.

# Buscando por um usuário
usuario <- getUser("12161883573",token=keys)
 
# display_name        id         followers
# Pedro Meirelles 12161883573        79
 
# Buscando por um usuário
usuario <- getUser("marinalalves",token=keys)
 
# display_name        id         followers
# Marina Alves    marinalalves       163
 
# Buscando por um usuário
usuario <- getUser("12161883573",token=keys)
 
#display_name         id         followers
#  Alves Fefê     12142930547       135

O RSpotify, e o Spotify em si, são bem didáticos e permitem uma busca de artistas:

procurando_artista <-searchArtist("Raca+negra",token=keys)
# Para nomes compostos é só usar o +. Ex: "Móveis+coloniais+de+Acaju".
# Lembre-se de não usar cedilha, acentos ou qualquer outro carácter que dê problema com o UTF-8

Como resultado dessa busca a API me retornou a seguinte tabela:

display_nameIdpopularityfollowersgenrestype
Raça Negra1RnHJ07H3jcpay9PrUPjnt67181793axe,pagode,sertanejo,sertanejo
universitarioartist
Banda Raça Negra
(luiz Carlos0DU3aBTptTJiqrQEvUu9m8463006pagodeartist
Luiz Carlos (Grupo
Raça Negra)094w4geWkyQs5n49nN7IhQ3503artist

Dessa tabela iremos usar o Id da primeira linha (‘Raça Negra’), que representa o perfil oficial da banda na plataforma, para buscar apenas pelos dados da banda.

artista_info <- getArtistinfo("1RnHJ07H3jcpay9PrUPjnt",token=keys)
 
#           id              name       popularity followers               genres
# 1RnHJ07H3jcpay9PrUPjnt Raça Negra         67    181797  axe,pagode,sertanejo,sertanejo universitario

Usando o mesmo id iremos buscar todos os álbuns que estão disponibilizados na plataforma:

artista_albums <-getAlbums("1RnHJ07H3jcpay9PrUPjnt",token=keys)

Como resultado temos:

idnamealbum_typeavailable_markets
10hSUBFqEpxTYTXyYfVncOwRaça Negra e
Amigos II (Ao Vivo)albumAD;AR;AT;AU;BE;BG;BO;BR;CA;CH;
CL;CO;CR;CY;CZ;DE;DK;DO;EC;EE;ES;
FI;FR;GB;GR;GT;HK;HN;HU;ID;IE;IS;
IT;JP;LI;LT;LU;LV;MC;MT;MX;MY;NI;
NL;NO;NZ;PA;PE;PH;PL;PT;PY;SE;
SG;SK;SV;TH;TR;TW;US;UY;VN
27oEbEk1KjiSx4VyYeCZXumGrandes SucessosalbumAD;AR;AT;AU;BE;BG;BO;BR;CA;CH;
CL;CO;CR;CY;CZ;DE;DK;DO;EC;EE;ES;
FI;FR;GB;GR;GT;HK;HN;HU;ID;IE;IS;
IT;JP;LI;LT;LU;LV;MC;MT;MX;MY;NI;
NL;NO;NZ;PA;PE;PH;PL;PT;PY;SE;
SG;SK;SV;TH;TR;TW;US;UY;VN
364lYVfx8NrXctVRKwGbPWBRei do BailealbumAD;AR;AT;AU;BE;BG;BO;BR;CA;CH;
CL;CO;CR;CY;CZ;DE;DK;DO;EC;EE;ES;
FI;FR;GB;GR;GT;HK;HN;HU;ID;IE;IS;
IT;JP;LI;LT;LU;LV;MC;MT;MX;MY;NI;
NL;NO;NZ;PA;PE;PH;PL;PT;PY;SE;
SG;SK;SV;TH;TR;TW;US;UY;VN
45F29W95AYHMYmuAQfKnbX8Raça Negra &
AmigosalbumAD;AR;AT;AU;BE;BG;BO;BR;CA;CH;
CL;CO;CR;CY;CZ;DE;DK;DO;EC;EE;ES;
FI;FR;GB;GR;GT;HK;HN;HU;ID;IE;IS;
IT;JP;LI;LT;LU;LV;MC;MT;MX;MY;NI;
NL;NO;NZ;PA;PE;PH;PL;PT;PY;SE;
SG;SK;SV;TH;TR;TW;US;UY;VN
55zHbW1Cl8DgvIolJZfTrdGBoa SortealbumAD;AR;AT;AU;BE;BG;BO;BR;CA;CH;
CL;CO;CR;CY;CZ;DE;DK;DO;EC;EE;ES;
FI;FR;GB;GR;GT;HK;HN;HU;ID;IE;IS;
IT;JP;LI;LT;LU;LV;MC;MT;MX;MY;NI;
NL;NO;NZ;PA;PE;PH;PL;PT;PY;SE;
SG;SK;SV;TH;TR;TW;US;UY;VN
65rblxoTmh8yAzjyzK4gpUqCanta Jovem Guarda
Vol. 02albumAD;AR;AT;AU;BE;BG;BO;BR;CA;CH;
CL;CO;CR;CY;CZ;DE;DK;DO;EC;EE;ES;
FI;FR;GB;GR;GT;HK;HN;HU;ID;IE;IS;
IT;JP;LI;LT;LU;LV;MC;MT;MX;MY;NI;
NL;NO;NZ;PA;PE;PH;PL;PT;PY;SE;
SG;SK;SV;TH;TR;TW;US;UY;VN
74eh31GDcQe9dTsx4rcBh93Raça Negra 25 AnosalbumAD;AR;AT;AU;BE;BG;BO;BR;CA;CH;
CL;CO;CR;CY;CZ;DE;DK;DO;EC;EE;ES;
FI;FR;GB;GR;GT;HK;HN;HU;ID;IE;IS;
IT;JP;LI;LT;LU;LV;MC;MT;MX;MY;NI;
NL;NO;NZ;PA;PE;PH;PL;PT;PY;SE;
SG;SK;SV;TH;TR;TW;US;UY;VN
81UJJ419eEbx3iyFABhgEWERaça Negra as 20 +
(Acústico)albumAD;AR;AT;AU;BE;BG;BO;BR;CA;CH;
CL;CO;CR;CY;CZ;DE;DK;DO;EC;EE;ES;
FI;FR;GB;GR;GT;HK;HN;HU;ID;IE;IS;
IT;JP;LI;LT;LU;LV;MC;MT;MX;MY;NI;
NL;NO;NZ;PA;PE;PH;PL;PT;PY;SE;
SG;SK;SV;TH;TR;TW;US;UY;VN
93mUJ13LTs1hM5K8hlLzy5oRaça Negra Vol. 23albumAD;AR;AT;AU;BE;BG;BO;BR;CA;CH;
CL;CO;CR;CY;CZ;DE;DK;DO;EC;EE;ES;
FI;FR;GB;GR;GT;HK;HN;HU;ID;IE;IS;
IT;JP;LI;LT;LU;LV;MC;MT;MX;MY;NI;
NL;NO;NZ;PA;PE;PH;PL;PT;PY;SE;
SG;SK;SV;TH;TR;TW;US;UY;VN
104AP8HI1sOQvX90OO8eNpWWRaça Negra Ao Vivoalbum
111YZh5Huo7eN4QERA51SAQDA Vida Por Um
Beijoalbum
126smzTn08XxXLIHbAkff0EWVem Pra Ficaralbum
1364UsYiPOiVX2mFURxtLe8YRaça Negra Ao Vivoalbum
144RkZlSsx550sBAs176taJERaça Negra – Vol.
9albumAD;AR;AT;AU;BE;BG;BO;BR;CA;CH;
CL;CO;CR;CY;CZ;DE;DK;DO;EC;EE;ES;
FI;FR;GB;GR;GT;HK;HN;HU;ID;IE;IS;
IT;JP;LI;LT;LU;LV;MC;MT;MX;MY;NI;
NL;NO;NZ;PA;PE;PH;PL;PT;PY;SE;
SG;SK;SV;TH;TR;TW;US;UY;VN
156syFuuqkNCeGBkoMXkex0xRaça Negra – Vol.
8albumAD;AR;AT;AU;BE;BG;BO;BR;CA;CH;
CL;CO;CR;CY;CZ;DE;DK;DO;EC;EE;ES;
FI;FR;GB;GR;GT;HK;HN;HU;ID;IE;IS;
IT;JP;LI;LT;LU;LV;MC;MT;MX;MY;NI;
NL;NO;NZ;PA;PE;PH;PL;PT;PY;SE;
SG;SK;SV;TH;TR;TW;US;UY;VN
164qBS8sfDa0EQSa6OXCFNP5Raça Negra – Vol.
7albumAD;AR;AT;AU;BE;BG;BO;BR;CA;CH;
CL;CO;CR;CY;CZ;DE;DK;DO;EC;EE;ES;
FI;FR;GB;GR;GT;HK;HN;HU;ID;IE;IS;
IT;JP;LI;LT;LU;LV;MC;MT;MX;MY;NI;
NL;NO;NZ;PA;PE;PH;PL;PT;PY;SE;
SG;SK;SV;TH;TR;TW;US;UY;VN
1729V84LmnwpPioQeVpnFII6Raça Negra – Ao
Vivo – Vol. 1albumAD;AR;AT;AU;BE;BG;BO;BR;CA;CH;
CL;CO;CR;CY;CZ;DE;DK;DO;EC;EE;ES;
FI;FR;GB;GR;GT;HK;HN;HU;ID;IE;IS;
IT;JP;LI;LT;LU;LV;MC;MT;MX;MY;NI;
NL;NO;NZ;PA;PE;PH;PL;PT;PY;SE;
SG;SK;SV;TH;TR;TW;US;UY;VN
1851BAZ90Bb9cCJTb58rC0alRaça Negra – Ao
Vivo – Vol. 2albumAD;AR;AT;AU;BE;BG;BO;BR;CA;CH;
CL;CO;CR;CY;CZ;DE;DK;DO;EC;EE;ES;
FI;FR;GB;GR;GT;HK;HN;HU;ID;IE;IS;
IT;JP;LI;LT;LU;LV;MC;MT;MX;MY;NI;
NL;NO;NZ;PA;PE;PH;PL;PT;PY;SE;
SG;SK;SV;TH;TR;TW;US;UY;VN
197mIvanqTeinJuA2dkZ9fcwRaça Negra – Vol.
6albumAD;AR;AT;AU;BE;BG;BO;BR;CA;CH;
CL;CO;CR;CY;CZ;DE;DK;DO;EC;EE;ES;
FI;FR;GB;GR;GT;HK;HN;HU;ID;IE;IS;
IT;JP;LI;LT;LU;LV;MC;MT;MX;MY;NI;
NL;NO;NZ;PA;PE;PH;PL;PT;PY;SE;
SG;SK;SV;TH;TR;TW;US;UY;VN
202KBcXYnW4XavPt5X57OeMYRaça Negra – Vol.
5albumAD;AR;AT;AU;BE;BG;BO;BR;CA;CH;
CL;CO;CR;CY;CZ;DE;DK;DO;EC;EE;ES;
FI;FR;GB;GR;GT;HK;HN;HU;ID;IE;IS;
IT;JP;LI;LT;LU;LV;MC;MT;MX;MY;NI;
NL;NO;NZ;PA;PE;PH;PL;PT;PY;SE;
SG;SK;SV;TH;TR;TW;US;UY;VN
2107ydHtUxf2zSG8z0I6nQhVRaça Negra – Vol.
4albumAD;AR;AT;AU;BE;BG;BO;BR;CA;CH;
CL;CO;CR;CY;CZ;DE;DK;DO;EC;EE;ES;
FI;FR;GB;GR;GT;HK;HN;HU;ID;IE;IS;
IT;JP;LI;LT;LU;LV;MC;MT;MX;MY;NI;
NL;NO;NZ;PA;PE;PH;PL;PT;PY;SE;
SG;SK;SV;TH;TR;TW;US;UY;VN
224KFRAngmHqBN685O1JCAhKRaça Negra – Vol.
2albumAD;AR;AT;AU;BE;BG;BO;BR;CA;CH;
CL;CO;CR;CY;CZ;DE;DK;DO;EC;EE;ES;
FI;FR;GB;GR;GT;HK;HN;HU;ID;IE;IS;
IT;JP;LI;LT;LU;LV;MC;MT;MX;MY;NI;
NL;NO;NZ;PA;PE;PH;PL;PT;PY;SE;
SG;SK;SV;TH;TR;TW;US;UY;VN
2357v2s5PkNuYDYvVB0cSZg3Raça Negra – Vol.
3albumAD;AR;AT;AU;BE;BG;BO;BR;CA;CH;
CL;CO;CR;CY;CZ;DE;DK;DO;EC;EE;ES;
FI;FR;GB;GR;GT;HK;HN;HU;ID;IE;IS;
IT;JP;LI;LT;LU;LV;MC;MT;MX;MY;NI;
NL;NO;NZ;PA;PE;PH;PL;PT;PY;SE;
SG;SK;SV;TH;TR;TW;US;UY;VN
246GbhqV8RmmGsehuxNGLAjARaça Negra – Vol.
1albumAD;AR;AT;AU;BE;BG;BO;BR;CA;CH;
CL;CO;CR;CY;CZ;DE;DK;DO;EC;EE;ES;
FI;FR;GB;GR;GT;HK;HN;HU;ID;IE;IS;
IT;JP;LI;LT;LU;LV;MC;MT;MX;MY;NI;
NL;NO;NZ;PA;PE;PH;PL;PT;PY;SE;
SG;SK;SV;TH;TR;TW;US;UY;VN

Pesquisando o álbum teremos a relação de todas as músicas que o compõem e mais algumas informações estruturais. No exemplo abaixo usei o álbum Raça Negra & Amigos II:

album_rn_amigos2 <-getAlbum("0hSUBFqEpxTYTXyYfVncOw",token=keys)
idnameduration_mstrack_numberdisc_number
11iwv4D5EHcKtJqPprNf8vTPot-Pourri:
Sozinho / Estou Mal / Volta – Ao Vivo29956511
251ff111hRyNU6PIZqYuVenTe Quero Comigo –
Ao Vivo18145021
34vTI1wFRtzrk4GQNHjG8fxCigana – Ao Vivo19587531
43cXOJdXrVHieyQYgqFoVjqVai Curtir, Vai
Dançar – Ao Vivo19020041
51MtoOMAoiR4LJ02iKG9fYdMe Leva Junto Com
Você – Ao Vivo20100051
61evGz6jhUfj0YHuSRMKh00Dou a Vida por um
Beijo – Ao Vivo18587561
76QhGxxXyNL45IbxxiFqRKCPensando Em Você –
Ao Vivo14249571
85dBSzL9HhM4Ozly6QYKF7bExtrapolei – Ao
Vivo18050081
96ZgPpnXKJ46ikXpU7qcxiZDono do Seu Beijo

Para melhor visualização, foi ocultado a coluna ‘available_markets’ e ‘preview_url’.

Começamos a entrar na parte que eu considero mais interessante, talvez pela quantidade de dados ou pela oportunidade de combinações que podemos fazer, não sei dizer ao certo. Antes de continuar no tutorial é imprescindível ler essa página do Spotify, na qual é explicado cada uma das métricas atribuídas aos áudios disponíveis na plataforma.

O código abaixo faz a requisição dos dados por música. Usei como exemplo a música “Cigana“.

musica_info <- getFeatures("4vTI1wFRtzrk4GQNHjG8fx",token=keys)

Como retorno temos as seguintes métricas:

id4vTI1wFRtzrk4GQNHjG8fx
danceability0.655
energy0.63
key0
loudness-6.717
mode1
speechiness0.0353
acousticness0.47
instrumentalness0
liveness0.589
valence0.352
tempo141.981
duration_ms195875
time_signature4
urispotify:track:4vTI1wFRtzrk4GQNHjG8fx
analysis_urlhttps://api.spotify.com/v1/audio-analysis/4vTI1wFRtzrk4GQNHjG8fx

O próximo recurso apresentado é a base para a extração dos dados utilizada na visualização que está no fim desse post e consiste na busca pelas playlists que o usuário criou ou esta seguindo. Usei como exemplo novamente o Pedro Meirelles – que sempre uso em todos os meus testes (Pedro <3) :

# Verificando as playlist de um usuário
wh.playlist <- getPlaylist("12161883573",token=keys)
idnameowneridtracks
3Xplz55ngFyezx6ljo4zzlR&BALLADS1216188357322
39VPSVNmiCkKnuvuWBBIorFORÇA1216188357328
6ZUsHUrxSjLbm2Ay5iTGbTAXÉCALMO1216188357325
5jHR4tew3cIWNGhJjSvZr6DISNEY CHANNEL1216188357336
0u3Qnl9IzwtvBY1V5MAc8Xrihanna eu te
venero1216188357319
0yiJafsuPtRIgnyybsUWwOIvete no Rock In
Rio 20171216188357320
1W5VKeeEMkRAhlzajWPf9tBaile Charme – BRT
Expressovinieloy283
37i9dQZEVXbMXbN3EUUhlgBrazil Top 50spotifycharts50
3xwDn2RT5l4GvhRrylV6aMNA VOZ DE IVETE1216188357327
37i9dQZF1DWTkIwO2HDifBFunk 25spotify25
1gCpl2yIhpUj8Z3wCPHteMThis Is: Nicki
Minajxuxudobigode151
37i9dQZF1DWVtNGBlJrHWRThis Is: Jennifer
Lopezspotify41
0r1G4J8wOFJO2IqraCrf9zFRITA BAHIA1216188357338
37i9dQZF1DWU8quswnFt3cFeminist Fridayspotify31
37i9dQZF1DX1wNY9tfWQsSWomen of R&Bspotify80
37i9dQZF1DX9zF9ZmsyHKtMulheres do Brasilspotify50
37i9dQZF1DWVYnVJd3Z0WpThis Is: Pittyspotify21
37i9dQZF1DX4Kia09Psr0AThis Is: Marisa
Montespotify30
37i9dQZF1DWZylNQMXNhNeLacradorxsspotify28
37i9dQZF1DWZ2DWnNKZTXsBrasil Anos 2000spotify51
2dI270WZlz9BiGQKQywg0fAxéFortepedrotourinho84
6eujIvDFjtT2viczX9y55eSUPERA VIADO1216188357322
7szwm81dhjPufr4AWLj8wdcarnaval baiano no
rio1216188357385
3WGn43UYq8lBo23vnIwBufAxé, O Filmechicoksz44
5mxrh5mML97dqaqV4KR2gkThe XOlistfelipebarcellos28
5IqHJjfPlvjYjAFIjPPdk7CARNAVAL20171216188357336
7KdBHdJ7L88v0XPgGVupReBieber 2.01216188357326
4Z4KbP3KOrB29VvHHENmo6🔱$Funk 💯% Putaria 2.0$🔱222a2endbw45g7eueixhxkzvy120
622JI34dT1qwNoK0YwMydFME FAZ BEM121618835737
7oGJKUvJ4Bypcau9kG2uUOfunk gostosinho12142160910104
7EQu3DtjLnba6JwDdN4TgjTHE BOSS1216188357351
293Pm6k7ENqvOcjxoxNx65PAREDÃO1216188357376
4OSKhZug4TUqnxqa8PeUPvPENSA PORRA1216188357349
0iqIYqSWs2W1JUFriWpoadGOSTOSINHO1216188357322
0SaWYfaYWySa8gdpLWv9seFERVO1216188357316
6zsQoR0WDmBmwUrIV6jhuSEXPLODE1216188357329
0UQUStd8PULBWi3VblxfpTFUNK PRO ASFALTO1216188357379
4Te7ei4VhJJVgRcaUcc9iYBAHIA1216188357375
4f2yTC1B9M6h0lGNknLND1RIO12161883573100
45jlFYz4rxtvk4gyT6PeiHRELAXA1216188357343
70ropFRwKmWU1iSNAqsUQ6Pérolas de Ivete1216188357319
2kbuzyPwRd35FAszZFKuzYNIGHT OUT1216188357390
3gYiXHHgYTALH1LmLNlYTX#nowplaying12161883573141

A próxima requisição tem como retorno a lista das musicas presentes em uma playlist, dado o name do usuário e o Id da playlist. Como exemplo estou usando o spotifycharts , esse é o usuário que o Spotify colocou como dono das listas de músicas mais tocadas:

playlist_info <- getPlaylistSongs("spotifycharts","37i9dQZEVXbMXbN3EUUhlg",token=keys)
 
# Como retorno temos as seguintes colunas:
#[1] "tracks"     "id"         "popularity" "artist"     "artistId"   "album"    
#[7] "albumId"
tracksidpopularityartistartistIdalbumalbumId
1New Rules2ekn2ttSfGqwhhate0LSR097Dua Lipa6M2wZ9GZgrQXHCFfjv46weDua Lipa (Deluxe)01sfgrNbnnPUEyz6GZYlt9
2Deixe Me Ir –
Acústico2srL4DYBekshpbprS6H0mO821Kilo6E2st8OqIaS7PU5gj95FSEDeixe Me Ir
(Acústico)1eFFmE91zTBJQCz8YtFctr
3Agora Vai Sentar0pDaqgIForVNO4jrtTxcWT78MC Jhowzinho e MC
Kadinho2Q4r4Epfaaho06ONTHx7OSAgora Vai Sentar –
Single39HSKuqaxE7NH3ZeJoKqdh
4Corpo Sensual4kkQGhScJDzNIIGavQE9SN80Pabllo Vittar6tzRZ39aZlNqlUzQlkuhDVVai Passar Mal2HTrcsRAZAfD28QdqNc2jT
5Is That For Me2KwojFDebQV4J2b0JMRR5Q82Alesso4AVFqumd2ogHFlRbKIjp1tIs That For Me1LtTYrAjvMjXTAo8U70eWL
6Havana0ofbQMrRDsUaVKq2mGLEAb100Camila Cabello4nDoRrQiYLoBzwC5BhVJzFHavana5chBPOVY2I0bG5V3igb5QL
7Big Jet Plane1xd3OqTbx17HutN7RfJOTj80Alok0NGAZxHanS9e0iNHpR8f2WBig Jet Plane35i6JrOJDOFIUuyQDtMjbA
8Sua Cara (feat.
Anitta & Pabllo Vittar)3ibRxEv4KkcU9e259eyNJA83Major Lazer738wLrAtLtCtFOLvQBXOXpKnow No Better3aM83lEPSXKv5RnM43e8T9
9Fazer Falta6pSYjx66rlqRmGGTHhnjCo81Mc Livinho7me0S5Z40qVWj3gzyK8aC3Fazer Falta12SX4VJ6rdQQpMGHVBl1oe
10Raspão – Ao Vivo6gquljDBW7rE6mCBzmTRxo79Henrique &
Diego1D6vAeVUcgMbSx80IA3ZunDe Braços Abertos
(Ao Vivo)6plZQVlgm6HDExDtMcb4iC
11Encaixa7yYOMPwpV5CsK0cxoAZT6B81MC Kevinho1mXAhKnZEdF6rotyyd4GBiEncaixa1VpAtphzREZCxdmXBdmuCn
12Ar-Condicionado No
15 – Ao Vivo5ac0YTpOaDX9wEYYyGCglL77Wesley Safadão1AL2GKpmRrKXkYIcASuRFaIn Miami Beach (Ao
Vivo)508PwdK7nipXn6CL20PWkb
13Wolves7EmGUiUaOSGDnUUQUDrOXC84Selena Gomez0C8ZW7ezQVs4URX5aX7KqxWolves2pABD3sfXVajKVXw83WMvT
14rockstar7wGoVu4Dady5GV0Sv4UIsx98Post Malone246dkjvS1zLTtiykXe5h60rockstar4AabsQ6plH3OmdE6BWI04j
15Regime Fechado –
Ao Vivo6UZJOc2HBrTp9DYfir9N8n79Simone &
Simaria0MInKJqZscEeNc5K3K0mkESimone &
Simaria (Ao Vivo)4qszY7uzcewzMAbr9HRUJN
16K.O.5zSiXA70xM4kuSt6qim6jl79Pabllo Vittar6tzRZ39aZlNqlUzQlkuhDVVai Passar Mal2HTrcsRAZAfD28QdqNc2jT
17Vidinha de Balada

A requisição getRelated nos retorna os 20 artistas que o Spotify coloca como relacionado, ou com maior aproximação, a um artista analisado. Ela aparece na lateral inferior direita na página do artista quando se olha pela versão web ou desktop da plataforma. Essa funcionalidade foi uma das que achei mais interessante e a que mais usei.

# Busca por artistas relacionados dentro da plataforma
artista_related <-getRelated("raca+negra",token=keys)
nameidpopularitytypefollowers
1Só Pra Contrariar2B8HcBRTizIsSPryM46Sb161artist104693
2Art Popular6YMWV5AeYoZymMMDonMfsA55artist57651
3Exaltasamba6VPRGmbZ0dupZrbwwEDRRw67artist186889
4Bokaloka6XgJ4LQHTOtveWKH5V7X5652artist52903
5Molejo7yl05GUXqcUA3mfpowr1fe56artist53408
6Grupo Revelação7yQrcdkLdBAkV7yY9fF2Hw67artist170081
7Belo7hLjkyL9Pz9xtQNahzJZki63artist150666
8Katinguelê3gdaj3L0OqxdaVoxnI7ZGu47artist34760
9Pixote0ciLF0bOuu2BhqzCEZgHoB61artist133231
10Soweto3QYmec82Yj7fjTMvrt49E451artist42030
11Os Travessos3RpJ23sQA3B70ZgSnT2Vxr58artist80163
12Bom Gosto4SaxUo7mfdHBowU0llwxFd62artist109817
13Sorriso Maroto1fUSLFr4WUBx7joEcGwpvG71artist331146
14Grupo Fundo De
Quintal1WkZvxuA4zCcFF9GChK6Vr59artist80584
15Karametade2zUi8eGWcojkvBwCysFOyC44artist18191
16Inimigos Da HP5IEFDMhrxPABOkcu6Vx93O54artist52476
17Fábio Jr.60iOwdF3A0p4pAwgUXMaWU55artist112053
18Jeito Moleque3V7U1x0TRBn7spzHDQiZhi58artist83725
19Agepê5T2UOU9fV8RcUgLH3b6TTN43artist29557
20Swing &
Simpatia07o97MiFEobUUwiIYcspmj45artist34664

Como exemplo prático, usei algumas requisições que já tinha obtido acima para criar um exemplo de como encontrar os artistas relacionados dos artistas mais tocados no Brasil.

# Requisição usando como exemplo a lista de 50 músicas mais tocadas do Brasil
playlist_info <- getPlaylistSongs("spotifycharts","37i9dQZEVXbMXbN3EUUhlg",token=keys)
 
# Esta função tem por objetivo pegar o nome do artista disponibilizado em playlist_info, fazer
# a busca pelos artistas relacionados e alocar num data frame por linha. O Rhenan Bartels me ajudou nessa função.
get_all_related <- function(artistas){
  related_frame <- c()
  for(artista in artistas){
    related_frame = rbind(related_frame, getRelated(artista, token=keys))
  }
  return(related_frame)
}
 
# Removendo caracteres estranhos para a busca do Spotify, como ç, ã, ô... (Obrigado pela ajuda, Eduardo Leoni)
playlist_info$artist <- stringi::stri_trans_general(playlist_info$artist,"Latin-ASCII")
 
# Aplicando a função criada acima e buscando os dados na API:
artistas_rel <- get_all_related(playlist_info[,4])
 
# Com o objetivo de gerar um csv para importar no Gephi foi criado uma repetição
# de 20 vezes cada linha( para bater que os artistas relacionados):
artistas_prin <- rep(playlist_info[,4],each=20)
 
# Criando um data frame com os dados para serem usados no Gephi
grafo_artistas_related <- cbind(artistas_prin,artistas_rel = as.character(artistas_rel$name))
 
# Exportando esses dados:
write.csv(grafo_artistas_related,"grafo_artistas_related.csv", row.names = FALSE)

O grafo abaixo é o resultado do csv importado no Gephi. O tamanho dos nós varia de acordo com o grau de entrada que, no caso apresentado, é a quantidade de vezes que são colocados como artistas relacionados no Spotify. Vale lembrar que infelizmente o Spotify só retorna o primeiro artista listado como cantor.

Clique na imagem para abrir o site!

https://trifenol.github.io/rede_rspotify/

Esse foi apenas um pequeno exemplo do uso do pacote RSpotify. Na semana que vem trarei ( e dou update aqui) uma análise completa da carreira de uma certa cantora, as mudanças da sua fase funk até a fase pop/internacional, utilizando os dados da requisição getFeatures.

Comentários

Deixe um comentário

O seu endereço de email não será publicado. Campos obrigatórios marcados com *