```r
library(widyr)

title_word_pairs <- nasa_title %>% 
  pairwise_count(word, id, sort = TRUE, upper = FALSE)

title_word_pairs
```

```
## # A tibble: 156,689 x 3
##    item1  item2       n
##    <chr>  <chr>   <dbl>
##  1 system project   796
##  2 lba    eco       683
##  3 airs   aqua      641
##  4 level  aqua      623
##  5 level  airs      612
##  6 aura   omi       607
##  7 global grid      597
##  8 global daily     574
##  9 data   boreas    551
## 10 ground gpm       550
## # … with 156,679 more rows
```