Snippet to filter keywords with stop words

[ablaette]

When I run the following code, there are still lots of stop words. How to get rid of these?

library(polmineR)
library(openxlsx)

afd <- corpus("GERMAPARL2") %>% 
  subset(speaker_party == "AfD") %>% 
  subset(protocol_lp == "19") %>% 
  subset(p_type == "speech")

afd_count <- afd %>%
  polmineR::count(p_attribute = "word")

gparl <- corpus("GERMAPARL2") %>% 
  subset(protocol_lp == "19") %>% 
  subset(p_type == "speech") %>% 
  polmineR::count(p_attribute = "word")

keywords_afd <- features(x = afd_count, y = gparl)

[ablaette]

You can add a subset() as follows:

keywords_afd_min <- keywords_afd %>% 
  subset(!word %in% tm::stopwords("de")) %>% 
  subset(!word %in% c("!", "Sie", '„', '“'))

Please add stop words, characters etc as appropriate for you.