Everybody loburpes Rick and Morty, and rightly so.
It ticks all the cynical boxes full of nihilistic meta-humor and what not, while satirizing pretty much everything.

So, yeah, I’ll plot the trakt.tv ratings and pretend someone cares.

Getting the Data

library(tRakt)
library(dplyr)
library(ggplot2)
library(hrbrthemes)

show     <- trakt.search("Rick and Morty")
episodes <- trakt.get_all_episodes(show$ids$slug)

episodes %>%
  select(epid, first_aired.string, title, rating) %>%
  head(5)
    epid first_aired.string                  title  rating
1 s01e01         2013-12-03                  Pilot 7.71107
2 s01e02         2013-12-10          Lawnmower Dog 7.95509
3 s01e03         2013-12-17           Anatomy Park 7.91688
4 s01e04         2014-01-14 M. Night Shaym-Aliens! 8.03622
5 s01e05         2014-01-21   Meeseeks and Destroy 8.03627

Well that was easy. As usual.

Ploburpoots

ggplot(data = episodes, 
       aes(x = episode_abs, y = rating, fill = season)) +
  geom_point(shape = 21, size = 3, color = "black") +
  scale_x_continuous(breaks = seq(0, 100, 5),
                     minor_breaks = seq(0, 100, 1)) +
  scale_y_continuous(breaks = seq(0, 10, .25), 
                     minor_breaks = seq(0, 10, .05),
                     limits = range(episodes$rating) + c(-.2, .2)) +
  scale_fill_ipsum() +
  labs(title = show$title,
       subtitle = "User Ratings on trakt.tv",
       x = "Absolute Episode #",
       y = "User Rating (1-10)",
       fill = "Season",
       caption = paste("Data as of", format(Sys.Date(), "%F"))) +
  theme_ipsum() +
  theme(legend.position = "top")
Absolute Episode Numbers with Ratings
Absolute Episode Numbers with Ratings
ggplot(data = episodes, 
       aes(x = first_aired, y = rating, fill = season)) +
  geom_point(shape = 21, size = 3, color = "black") +
  scale_x_datetime(date_breaks = "6 months",
                   date_labels = "%b '%y") +
  scale_y_continuous(breaks = seq(0, 10, .25), 
                     minor_breaks = seq(0, 10, .05),
                     limits = range(episodes$rating) + c(-.2, .2)) +
  scale_fill_ipsum() +
  labs(title = show$title,
       subtitle = "User Ratings on trakt.tv",
       x = "Original Air Date",
       y = "User Rating (1-10)",
       fill = "Season",
       caption = paste("Data as of", format(Sys.Date(), "%F"))) +
  theme_ipsum() +
  theme(legend.position = "top")
Episodes per Air Date with Ratings
Episodes per Air Date with Ratings

Seasbrrpns

ggplot(data = episodes, 
       aes(x = season, y = rating, fill = season)) +
  geom_boxplot(color = "black", alpha = .6) +
  geom_jitter(shape = 21, size = 3, alpha = .5, height = .01) +
  scale_y_continuous(breaks = seq(0, 10, .25), 
                     minor_breaks = seq(0, 10, .05),
                     limits = range(episodes$rating) + c(-.2, .2)) +
  scale_fill_ipsum(guide = FALSE) +
  labs(title = show$title,
       subtitle = "User Ratings on trakt.tv",
       x = "Season",
       y = "User Rating (1-10)",
       caption = paste("Data as of", format(Sys.Date(), "%F"))) +
  theme_ipsum() +
  theme(legend.position = "top")
Aggregate Season Ratings
Aggregate Season Ratings

There might be something to learn from this, but I have to go lie down now.