geniusR Example with Jimi Hendrix

I read about the geniusR package today. The genius website can be used to load song lyrics. So I gave it a try.

library(geniusR)
library(tidyverse) # For manipulation
library(tidytext)
library(wordcloud)

Jimi_Are_You_Experienced <- genius_album(artist = "The Jimi Hendrix Experience", album = "Are You Experienced [US Version]")

Joining, by = c("track_title", "track_n", "track_url")

Jimi_Are_You_Experienced

Jimi_songs <- Jimi_Are_You_Experienced %>% select(track_title) %>%
  group_by(track_title) %>%
  summarise(lines = n())

Jimi_songs2 <- Jimi_songs %>% 
  select(track_title)
Jimi_songs2

par(mfrow=c(3,4))
Jimi_lyric <- Jimi_Are_You_Experienced %>% filter(track_title=="Are You Experienced?") %>% 
  select(lyric) %>%
  unnest_tokens(word, lyric) %>%
  count(word, sort = TRUE) %>%
  with(wordcloud(word, n))
Jimi_lyric <- Jimi_Are_You_Experienced %>% filter(track_title=="Fire") %>% 
  select(lyric) %>%
  unnest_tokens(word, lyric) %>%
  count(word, sort = TRUE) %>%
  with(wordcloud(word, n))

Jimi_lyric <- Jimi_Are_You_Experienced %>% filter(track_title=="Foxy Lady") %>% 
  select(lyric) %>%
  unnest_tokens(word, lyric) %>%
  count(word, sort = TRUE) %>%
  with(wordcloud(word, n))
Jimi_lyric <- Jimi_Are_You_Experienced %>% filter(track_title=="Hey Joe") %>% 
  select(lyric) %>%
  unnest_tokens(word, lyric) %>%
  count(word, sort = TRUE) %>%
  with(wordcloud(word, n))

Jimi_lyric <- Jimi_Are_You_Experienced %>% filter(track_title=="I Don't Live Today") %>% 
  select(lyric) %>%
  unnest_tokens(word, lyric) %>%
  count(word, sort = TRUE) %>%
  with(wordcloud(word, n))
Jimi_lyric <- Jimi_Are_You_Experienced %>% filter(track_title=="Love Or Confusion") %>% 
  select(lyric) %>%
  unnest_tokens(word, lyric) %>%
  count(word, sort = TRUE) %>%
  with(wordcloud(word, n))

Jimi_lyric <- Jimi_Are_You_Experienced %>% filter(track_title=="Manic Depression") %>% 
  select(lyric) %>%
  unnest_tokens(word, lyric) %>%
  count(word, sort = TRUE) %>%
  with(wordcloud(word, n))
Jimi_lyric <- Jimi_Are_You_Experienced %>% filter(track_title=="May This Be Love") %>% 
  select(lyric) %>%
  unnest_tokens(word, lyric) %>%
  count(word, sort = TRUE) %>%
  with(wordcloud(word, n))

Jimi_lyric <- Jimi_Are_You_Experienced %>% filter(track_title=="Purple Haze") %>% 
  select(lyric) %>%
  unnest_tokens(word, lyric) %>%
  count(word, sort = TRUE) %>%
  with(wordcloud(word, n))
Jimi_lyric <- Jimi_Are_You_Experienced %>% filter(track_title=="The Wind Cries Mary") %>% 
  select(lyric) %>%
  unnest_tokens(word, lyric) %>%
  count(word, sort = TRUE) %>%
  with(wordcloud(word, n))

Jimi_lyric <- Jimi_Are_You_Experienced %>% filter(track_title=="Third Stone From The Sun") %>% 
  select(lyric) %>%
  unnest_tokens(word, lyric) %>%
  count(word, sort = TRUE) %>%
  with(wordcloud(word, n))
Jimi_lyric <- Jimi_Are_You_Experienced %>% 
  select(lyric) %>%
  unnest_tokens(word, lyric) %>%
  count(word, sort = TRUE) %>%
  with(wordcloud(word, n))

Jimi_lyric <- Jimi_Are_You_Experienced %>% 
  select(lyric) %>%
  unnest_tokens(word, lyric) %>%
  count(word, sort = TRUE) %>%
  with(wordcloud(word, n))

Jimi_Electric_LadyLand <- genius_album(artist = "The Jimi Hendrix Experience", album = "Electric Ladyland")

Joining, by = c("track_title", "track_n", "track_url")

Jimi_Electric_LadyLand