Notice that punctuation is gone, and everything is lowercase. This is the default behavior of unnest_tokens() .

Sentiment lexicons (e.g., , bing , nrc ) assign emotional valence to words.

# Using bing lexicon (positive/negative) bing_sent <- get_sentiments("bing")

# Remove punctuation corpus <- tm_map(corpus, removePunctuation)