Parsing Transcript

transcript.R

# Installing Necessary Packages

# For Web Scraping Transcripts
library(rvest)
library(curl)

# For Data Frame Manipulation
library(dplyr)
library(tidyr)
library(stringr)
library(stringi)
# Import Transcript (with formatting)
RO <- readLines("RogueOneTranscript.txt")

# Convert to Data Frame
RO <- as.data.frame(RO)

# Remove empty rows
RO <- RO %>% 
        filter(!(RO == ""))

# Separating Character from words
RO_full <- RO %>% 
          separate(col = RO, into = c("Character", "Words"), sep = ":", extra = "merge") %>% 
          # Eliminate script notes
          filter(!is.na(Words)) %>% 
          # Trim white space and convert Character to factor
          mutate(Character = as.factor(str_trim(Character)), 
                 Words = str_trim(Words))