```r
sentiment_messages %>%
  arrange(desc(sentiment))
```

```
## # A tibble: 3,554 x 4
##    newsgroup               id     sentiment words
##    <chr>                   <chr>      <dbl> <int>
##  1 rec.sport.hockey        53560       3.89    18
##  2 rec.sport.hockey        53602       3.83    30
##  3 rec.sport.hockey        53822       3.83     6
##  4 rec.sport.hockey        53645       3.23    13
##  5 rec.autos               102768      3.2      5
##  6 misc.forsale            75965       3        5
##  7 misc.forsale            76037       3        5
##  8 rec.sport.baseball      104458      3       11
##  9 rec.sport.hockey        53571       3        5
## 10 comp.os.ms-windows.misc 9620        2.86     7
## # ... with 3,544 more rows
```