ProQuestionAsker

# Counting words per character
RO_full2 <- RO_full %>% 
                mutate(count = stri_count(Words, regex = "\\S+")) %>% 
                group_by(Character, Gender) %>% 
                summarise(Total_Words = sum(count)) %>% 
                filter(!(Gender == "unknown"))

ProQuestionAsker

# Installing Necessary Packages

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

# For Data Frame Manipulation
library(dplyr)
library(tidyr)
library(stringr)

ProQuestionAsker

(function() {
var width = 400,
    height = 300;
    //padding = 1.5, // separation between same-color nodes
    //clusterPadding = 6, // separation between different-color nodes
    //maxRadius = 15;

//var n = 67, // total number of nodes
   // m = 3; // number of distinct clusters