```r
my_stop_words <- bind_rows(stop_words, 
                           tibble(word = c("nbsp", "amp", "gt", "lt",
                                               "timesnewromanpsmt", "font",
                                               "td", "li", "br", "tr", "quot",
                                               "st", "img", "src", "strong",
                                               "http", "file", "files",
                                               as.character(1:12)), 
                                      lexicon = rep("custom", 30)))

word_counts <- nasa_desc %>%
  anti_join(my_stop_words) %>%
  count(id, word, sort = TRUE) %>%
  ungroup()

word_counts
```

```
## # A tibble: 1,895,310 x 3
##    id                       word         n
##    <chr>                    <chr>    <int>
##  1 55942a8ec63a7fe59b4986ef suit        82
##  2 55942a8ec63a7fe59b4986ef space       69
##  3 56cf5b00a759fdadc44e564a data        41
##  4 56cf5b00a759fdadc44e564a leak        40
##  5 56cf5b00a759fdadc44e564a tree        39
##  6 55942a8ec63a7fe59b4986ef pressure    34
##  7 55942a8ec63a7fe59b4986ef system      34
##  8 55942a89c63a7fe59b4982d9 em          32
##  9 55942a8ec63a7fe59b4986ef al          32
## 10 55942a8ec63a7fe59b4986ef human       31
## # … with 1,895,300 more rows
```