```r
tidy_tweets <- tweets %>% 
  filter(!str_detect(text, "^(RT|@)")) %>%
  mutate(text = str_remove_all(text, remove_reg)) %>%
  unnest_tokens(word, text, token = "tweets", strip_url = TRUE) %>%
  filter(!word %in% stop_words$word,
         !word %in% str_remove_all(stop_words$word, "'"))

tidy_tweets
```

```
## # A tibble: 11,014 x 7
##         id created_at          source             retweets favorites person word    
##      <dbl> <dttm>              <chr>                 <dbl>     <dbl> <chr>  <chr>   
##  1 8.04e17 2016-12-01 16:44:03 Twitter Web Client        0         0 Julia  score   
##  2 8.04e17 2016-12-01 16:44:03 Twitter Web Client        0         0 Julia  50      
##  3 8.04e17 2016-12-01 16:42:03 Twitter Web Client        0         9 Julia  snowing 
##  4 8.04e17 2016-12-01 16:42:03 Twitter Web Client        0         9 Julia  🌨      
##  5 8.04e17 2016-12-01 16:42:03 Twitter Web Client        0         9 Julia  drinking
##  6 8.04e17 2016-12-01 16:42:03 Twitter Web Client        0         9 Julia  tea     
##  7 8.04e17 2016-12-01 16:42:03 Twitter Web Client        0         9 Julia  🍵      
##  8 8.04e17 2016-12-01 16:42:03 Twitter Web Client        0         9 Julia  #rstats 
##  9 8.04e17 2016-12-01 16:42:03 Twitter Web Client        0         9 Julia  😍      
## 10 8.04e17 2016-12-01 02:56:10 Twitter Web Client        0        11 Julia  julie   
## # ... with 11,004 more rows
```