```r
library(wordcloud)

tidy_books %>%
  anti_join(stop_words) %>%
  count(word) %>%
  with(wordcloud(word, n, max.words = 100))
```

![(\#fig:firstwordcloud)The most common words in Jane Austen's novels](02-sentiment-analysis_files/figure-latex/firstwordcloud-1.pdf)