Reddit words

library(tidytext)
library(tidyverse)

c <- unnest_tokens(c, word, text)

data("stop_words")
c <- anti_join(c, stop_words)

Joining, by = "word"

head(c)

View(c)

n <- count(c, word, sort = TRUE)
n <- filter(n, n > 50)

ggplot(n, aes(word, n)) + geom_col(color = "blue", fill = "light blue", width = 0.5) + coord_flip() + theme_minimal()

LS0tDQp0aXRsZTogIlJlZGRpdCB3b3JkcyINCm91dHB1dDogaHRtbF9ub3RlYm9vaw0KLS0tDQoNCg0KDQpgYGB7cn0NCmxpYnJhcnkodGlkeXRleHQpDQpsaWJyYXJ5KHRpZHl2ZXJzZSkNCmBgYA0KDQpgYGB7cn0NCmMgPC0gdW5uZXN0X3Rva2VucyhjLCB3b3JkLCB0ZXh0KQ0KYGBgDQoNCmBgYHtyfQ0KZGF0YSgic3RvcF93b3JkcyIpDQpjIDwtIGFudGlfam9pbihjLCBzdG9wX3dvcmRzKQ0KYGBgDQoNCmBgYHtyfQ0KaGVhZChjKQ0KYGBgDQoNCmBgYHtyfQ0KVmlldyhjKQ0KYGBgDQoNCg0KYGBge3J9DQpuIDwtIGNvdW50KGMsIHdvcmQsIHNvcnQgPSBUUlVFKQ0KbiA8LSBmaWx0ZXIobiwgbiA+IDUwKQ0KYGBgDQoNCg0KYGBge3J9DQpnZ3Bsb3QobiwgYWVzKHdvcmQsIG4pKSArIGdlb21fY29sKGNvbG9yID0gImJsdWUiLCBmaWxsID0gImxpZ2h0IGJsdWUiLCB3aWR0aCA9IDAuNSkgKyBjb29yZF9mbGlwKCkgKyB0aGVtZV9taW5pbWFsKCkNCmBgYA0KDQo=