Advertisement
Guest User

Untitled

a guest
Jun 18th, 2019
68
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.21 KB | None | 0 0
  1. tidy_df %>%
  2. count(word, sort = TRUE) %>%
  3. filter(n > 50) %>%
  4. mutate(word = reorder(word, n)) %>%
  5. ggplot(aes(word, n)) +
  6. ggtitle("Figure 2: Most used words") +
  7. geom_col() +
  8. xlab(NULL) +
  9. coord_flip()
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement