```r
usenet_words %>%
  count(word, sort = TRUE)
```

```
## # A tibble: 68,137 x 2
##    word            n
##    <chr>       <int>
##  1 people       3655
##  2 time         2705
##  3 god          1626
##  4 system       1595
##  5 program      1103
##  6 bit          1097
##  7 information  1094
##  8 windows      1088
##  9 government   1084
## 10 space        1072
## # ... with 68,127 more rows
```

```r
words_by_newsgroup <- usenet_words %>%
  count(newsgroup, word, sort = TRUE) %>%
  ungroup()

words_by_newsgroup
```

```
## # A tibble: 173,913 x 3
##    newsgroup               word          n
##    <chr>                   <chr>     <int>
##  1 soc.religion.christian  god         917
##  2 sci.space               space       840
##  3 talk.politics.mideast   people      728
##  4 sci.crypt               key         704
##  5 comp.os.ms-windows.misc windows     625
##  6 talk.politics.mideast   armenian    582
##  7 sci.crypt               db          549
##  8 talk.politics.mideast   turkish     514
##  9 rec.autos               car         509
## 10 talk.politics.mideast   armenians   509
## # ... with 173,903 more rows
```