when i write this code:
AFINN <- sentiments %>% filter(lexicon == "AFINN") %>% select(word, afinn_score = score)
I get