```r
library(wordcloud)

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

<div class="figure">
<img src="02-sentiment-analysis_files/figure-html/firstwordcloud-1.png" alt="The most common words in Jane Austen's novels" width="576" />
<p class="caption">(\#fig:firstwordcloud)The most common words in Jane Austen's novels</p>
</div>