# NOT RUN {
data("usnews")
data("lexicons")
data("valence")
# construct a sentomeasures object to start with
corpus <- sento_corpus(corpusdf = usnews)
corpusSample <- quanteda::corpus_sample(corpus, size = 500)
l <- setup_lexicons(lexicons[c("LM_eng")], valence[["valence_eng"]])
ctr <- ctr_agg(howTime = c("equal_weight", "linear"), by = "year", lag = 3)
sentomeasures <- sento_measures(corpusSample, l, ctr)
# plot sentiment measures
plot(sentomeasures)
plot(sentomeasures, group = "features")
# adjust appearance of plot
p <- plot(sentomeasures)
p <- p +
ggthemes::theme_base() +
scale_x_date(name = "month-year") +
scale_y_continuous(name = "newName")
p
# }
Run the code above in your browser using DataLab