examples/drake.R

In tylercroberts/rGenius: R Wrapper for Genius API for music and annotations.

## Packages
library(rGenius)
library(tidyverse)


## Set the access token
access_token <- read_lines("access_token.txt")[1]


## Get all songs with the search 'drake'
drake <- get_song_from_artists(
  artist_name="drake",
  access_token=access_token,
  n_per_page=20
)


## Scatter plot of the data
drake_plot <-
  drake %>%
  mutate(
    date = as.Date(date),
    title = as.character(title),
    title = ifelse(str_detect(title, pattern = "Cake /"), "Pound Cake", title),
    title = as.factor(title)
  ) %>%
  # Limit to songs where the
  # main artist was, in fact, Drake.
  filter(artist == "Drake") %>%
  ggplot() +
  geom_point(aes(x=reorder(title, desc(views)),
                 y=date, size=views/1e6, colour=album), shape=1) +
  scale_size_continuous(labels = scales::comma) +
  scale_colour_discrete(labels= c("Views", "Scary Hours", "Nothing Was the Same", "IYRTITL", "More Life", "Take Care")) +
  labs(x ="Song Title", y = "Time", size="Genius\nViews\n(Millions)", colour="Album") +
  ggtitle("Drake Song Results from the Genius API") +
  theme_minimal(base_size = 8) +
  theme(
    axis.text.x = element_text(angle = 45, hjust = 1)
  )


## Save
ggsave(
    "drake.png", plot=drake_plot,
    dpi=225, width=5.5, height=4, units="in"
)