Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- tidy_df %>%
- count(word, sort = TRUE) %>%
- filter(n > 50) %>%
- mutate(word = reorder(word, n)) %>%
- ggplot(aes(word, n)) +
- ggtitle("Figure 2: Most used words") +
- geom_col() +
- xlab(NULL) +
- coord_flip()
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement