Text Data Analysis - Michael Scott Version
library(tidyverse) library(tidytext) library(textdata) library(pdftools) library(ggwordcloud) library(here) library(pander) library(ggthemes) here::i_am("dinnerparty.txt") The Office - Season 4 x Episode 9: The Dinner Party Read in the text transcript Source: https://www.officequotes.net/no4-09.php dinner_text <- read_delim(here("dinnerparty.txt"), "\t", escape_double = FALSE, col_names = FALSE, trim_ws = TRUE) %>% rename(lines = X1) Each row is a a line of the transcript for each character. Example: First line from the episode is from Stanley Hudson: dinner_line1 <- dinner_text[1,] dinner_line1 %>% pander() lines Stanley: This is ridiculous.