playing with Jockers' Syuzhet package for R

working-w-syuzhet.R

#setwd(path-to-your-directoy)

install.packages("devtools")
devtools::install_github("mjockers/syuzhet")
library("syuzhet")

x <- get_text_as_string("text.csv")

text <- get_sentences(x)

# this gets sentiment by individual token
stext <- get_sentiment(text)
write.csv(stext, "stext.csv")

# this line scales your entire corpus, divides into tenths, plots sentiment over that
chunktext <- get_percentage_values(stext)
write.csv(chunktext, "chunktext.csv")


barplot(chunktext, main="this", xlab="that")
barplot(stext, main="this", xlab="that")