Podcast Data for Fun and (not) Profit

Author

Lukas Burk

Updated

November 3, 6:36 (UTC)

This site is an automatically generated collection of plots and tables visualizing some metadata from my favorite podcasts/podcast networks.

Included:

Data includes episode runtimes, release dates, and hosts (in case of The Incomparable, also guests).

The data sources are:

Data collection and site/plot-recreation happens Sunday morning (UTC).

Note

This project is in a perpetual cycle of maintenance and “ain’t nobody got time for that”-ness, which is primarily reflected in many of the plots not looking right.
The reason is that whenever I tweaked the plot dimensions so that the spacing allows for all the text to be readable, it only takes a few months for multiple new podcasts to appear.
Since the data collection and plot creation is automated and updated daily, this means the plots now have to fit more data, but since I haven’t figured out a good way to auto-adjust the plot width accordingly, plots will look squished after a few months.

Current data

The last time the data was updated and the date of the latest episode within each dataset.

Code 
tibble::tribble(
  ~source, ~file_time, ~latest_episode,
  "relay.fm", file.info("data/relay_episodes.rds")[["mtime"]], max(relay_episodes$date),
  "The Incomparable", file.info("data/incomparable_episodes.rds")[["mtime"]], max(incomparable_episodes$date),
  "ATP", file.info("data/atp.rds")[["mtime"]], max(atp$date)
) |>
  arrange(desc(latest_episode)) |>
  knitr::kable(
    col.names = c("Podcast/Network", "File Time", "Latest Episode")
  ) |>
  kableExtra::kable_styling()
Podcast/Network File Time Latest Episode
relay.fm 2024-07-26 00:36:20 2024-07-25
The Incomparable 2024-07-26 00:36:20 2024-07-25
ATP 2024-07-26 00:36:20 2024-07-24

All Shows

Here’s a quick overview of the podcast data I’ve collected so far.

Code 
podcasts |>
  group_by(network) |>
  summarize(
    episodes = n(),
    firstep = as.character(as.Date(min(date, na.rm = TRUE))),
    lastep = as.character(as.Date(max(date, na.rm = TRUE))),
    shows = length(unique(show)),
    epspershow = round(episodes / shows, 1),
    .groups = "drop"
  ) |>
  set_names(c(
    "Network", "Episodes", "First Episode",
    "Last Episode", "# of Shows", "Avg Episodes per Show"
  )) |>
  reactable(
    rownames = FALSE 
  )

Timeline

From first to last published episode.

Code 
# column: screen-inset-shaded
podcasts |>
  group_by(show) |>
  mutate(
    d_min = min(date),
    d_max = max(date)
  ) |>
  ggplot(aes(x = reorder(show, d_min), color = network)) +
  geom_errorbar(aes(ymin = d_min, ymax = d_max), width = 1, linewidth = 1) +
  scale_x_discrete(position = "top") +
  scale_color_manual(values = network_colors) +
  coord_flip() +
  theme(legend.position = "top") +
  labs(
    title = "All Podcasts Timeline",
    subtitle = "The Incomparable, Relay FM, ATP",
    x = "", y = "First to Latest Episode Date",
    color = NULL,
    caption = caption
  )

Duration

Code 
# column: screen-inset-shaded

podcasts |>
  filter(!is.na(duration)) |>
  ggplot(aes(x = reorder(show, duration, FUN = mean), y = duration, fill = network)) +
  geom_boxplot() +
  coord_flip() +
  scale_fill_manual(values = network_colors) +
  labs(
    title = "Podcasts by Duration", subtitle = "By Network",
    x = "", y = "Duration (H:M:S)", fill = NULL,
    caption = caption
  )