```{r}
deduped_words %>% group_by(community) %>% filter(n() <= 2) %>% ungroup() %>% select(word)
```