Tom Sawyer

[serappfd]

Question

Find the 10 most used words and show them on the chart

library(gutenbergr)
library(tidytext)
library(dplyr)
library(tidyverse)
library(widyr)
library(ggplot2)
tom_sawyer <- gutenberg_download(c(74))
tom_sawyer

tom_sawyer %>%
  mutate(linenumber = row_number()) %>%
  ungroup() %>%
  unnest_tokens(word, text) %>%
  mutate(section = row_number() %/% 30) %>%
  count(word, sort=TRUE) %>%
  filter(!word %in% stop_words$word) %>%
  top_n(10) %>%
  ungroup() %>%
  mutate(word = reorder(word,n)) %>%
ggplot(aes(word, n, fill = word)) +
  geom_col(show.legend = FALSE) +
  labs(x = NULL, y = "n") +
  coord_flip()

Additional information

Originality

Is this question

• [x] Original
• [ ] Inspired
• [ ] Paraphrased or copied

Difficulty Level

• [x] Easy / Beginner (using a single command or concept is enough to solve the question)
• [ ] Intermediate (combining multiple commands, concepts is needed to solve the question)
• [ ] Difficult (combining multiple commands with non-default options and looking for additional information online might be needed)

Tags

tidytext, dplyr, ggplot, tidyverse, widyr