library(quanteda)
x <- corpus(df, text_field = "content_comment")
summary(x)
kwic(x, "kern")
stopwords <- tokenizers::stopwords("de") %>% append(
c("dass", "ja", "mehr", "mal")
)
model <- dfm(x, tolower = TRUE, stem = FALSE, remove_punct = TRUE, remove = stopwords)
textstat_frequency(model)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.