This analysis was made possible by the mdr R package, which used data originally compiled by the Severance wiki. Here, we create a little sentiment profile for each episode, binning them in three minute increments and calculating the AFINN average sentiment score in each. library(tidytext)library(mdr)library(tidyverse)df <- transcripts |>mutate(timestamp_seconds =as.numeric(timestamp), bin =floor(timestamp_seconds /180) *180) |>left_join(episodes, by =c("season", "episode"))df |>mutate(id = g...
