#Purpose: list the top unique words for a given author
#To Run #python word_freq.py
#To Run in R
library(RColorBrewer) library(wordcloud) lewis_carol_words <- read.csv("LewisCarroll__unique_words_output", stringsAsFactors = FALSE) wordcloud(lewis_carol_words$words, min.freq = 1, random.order = FALSE)
virgil_words <- read.csv("Virgil__unique_words_output", stringsAsFactors = FALSE) wordcloud(virgil_words$words, min.freq = 5, random.order = FALSE)
doyle_words <- read.csv("ArthurConanDoyle__unique_words_output", stringsAsFactors = FALSE) wordcloud(doyle_words$words, min.freq = 3, random.order = FALSE)