```r
bind_rows(afinn, 
          bing_and_nrc) %>%
  ggplot(aes(index, sentiment, fill = method)) +
  geom_col(show.legend = FALSE) +
  facet_wrap(~method, ncol = 1, scales = "free_y")
```

<div class="figure">
<img src="02-sentiment-analysis_files/figure-html/compareplot-1.png" alt="(ref:comparecap)" width="864" />
<p class="caption">(\#fig:compareplot)(ref:comparecap)</p>
</div>