## -- Attaching packages ------------------------------------------------- tidyverse 1.2.1 --
## v ggplot2 3.0.0     v purrr   0.2.5
## v tibble  1.4.2     v dplyr   0.7.6
## v tidyr   0.8.1     v stringr 1.3.1
## v readr   1.1.1     v forcats 0.3.0
## -- Conflicts ---------------------------------------------------- tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()
## 
## Attaching package: 'rtweet'
## The following object is masked from 'package:purrr':
## 
##     flatten
## Loading required package: NLP
## 
## Attaching package: 'NLP'
## The following object is masked from 'package:ggplot2':
## 
##     annotate
## Package version: 1.3.4
## Parallel computing: 2 of 8 threads used.
## See https://quanteda.io for tutorials and examples.
## 
## Attaching package: 'quanteda'
## The following objects are masked from 'package:tm':
## 
##     as.DocumentTermMatrix, stopwords
## The following object is masked from 'package:utils':
## 
##     View
## Parsed with column specification:
## cols(
##   .default = col_character(),
##   created_at = col_datetime(format = ""),
##   display_text_width = col_integer(),
##   is_quote = col_logical(),
##   is_retweet = col_logical(),
##   favorite_count = col_integer(),
##   retweet_count = col_integer(),
##   quoted_created_at = col_datetime(format = ""),
##   quoted_favorite_count = col_integer(),
##   quoted_retweet_count = col_integer(),
##   quoted_followers_count = col_integer(),
##   quoted_friends_count = col_integer(),
##   quoted_statuses_count = col_integer(),
##   quoted_verified = col_logical(),
##   protected = col_logical(),
##   followers_count = col_integer(),
##   friends_count = col_integer(),
##   listed_count = col_integer(),
##   statuses_count = col_integer(),
##   favourites_count = col_integer(),
##   account_created_at = col_datetime(format = "")
##   # ... with 1 more columns
## )
## See spec(...) for full column specifications.

## Warning in tm_map.SimpleCorpus(., content_transformer(tolower)):
## transformation drops documents
## Warning in tm_map.SimpleCorpus(., removePunctuation): transformation drops
## documents
## Warning in tm_map.SimpleCorpus(., removeNumbers): transformation drops
## documents
## Warning in tm_map.SimpleCorpus(., removeWords, c("joel")): transformation
## drops documents
## Warning in tm_map.SimpleCorpus(., removeWords, stopwords("english")):
## transformation drops documents
## Warning in tm_map.SimpleCorpus(., stripWhitespace): transformation drops
## documents
## <<TermDocumentMatrix (terms: 1170, documents: 200)>>
## Non-/sparse entries: 2745/231255
## Sparsity           : 99%
## Maximal term length: 31
## Weighting          : term frequency (tf)
## Sample             :
##             Docs
## Terms        111 123 147 26 84 85 86 87 88 91
##   amp          0   0   2  0  0  0  0  0  0  0
##   baby         0   0   0  2  0  1  0  0  0  1
##   bites        0   0   0  1  0  0  0  0  0  0
##   cincinnati   1   1   1  2  1  1  1  1  2  1
##   elephant     0   0   2  0  0  0  0  0  0  0
##   finger       0   0   0  2  0  0  0  0  0  0
##   fiona        0   0   0  0  1  1  1  2  1  1
##   hippo        0   0   0  0  1  2  2  2  2  1
##   rhino        0   0   0  1  0  0  0  0  0  0
##   zoo          1   1   1  3  1  2  2  2  2  2

## # A tibble: 30 x 2
##    .                    count
##    <fct>                <int>
##  1 cincinnati zoo         160
##  2 baby rhino              25
##  3 rhino bites             22
##  4 hippo fiona             19
##  5 baby rhino bites        18
##  6 cincinnati zoo amp      15
##  7 zoo amp                 15
##  8 amp botanical           13
##  9 amp botanical garden    13
## 10 botanical garden        13
## # ... with 20 more rows

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.