Quickly Compare your TV show ratings to trakt.tv

library(tRakt) # install via devtools::install_github("jemus42/tRakt") library(dplyr) library(tidyr) library(ggplot2) get_trakt_credentials(username = "Your Username") slug <- "dig" # Slug from trakt.tv show url trakt.user.ratings(type = "episodes") %>% filter(show.slug == slug) %>% arrange(season, episode) %>% select(rating, season, episode, title) %>% mutate(season = factor(season, ordered = T)) %>% rename(user.rating = rating) %>% left_join((trakt.get_all_episodes(slug) %>% select(rating, title, epnum))) %>% gather("type", value = "rating", user.rating, rating) %>% ggplot(data = ., aes(x = epnum, y = rating, colour = type)) + geom_point(size = 6, colour = "black") + geom_point(size = 5) + ylim(c(5, 10)) + scale_colour_discrete(labels = c("My Rating", "Trakt.