ATMOSPHERIC CHEMISTRY/CARBON AND HYDROCARBON COMPOUNDS

```r
top_keywords <- lda_gamma %>% 
  filter(gamma > 0.9) %>% 
  count(topic, keyword, sort = TRUE)

top_keywords
```

```
## # A tibble: 1,022 x 3
##    topic keyword           n
##    <int> <chr>         <int>
##  1    13 OCEAN COLOR    4480
##  2    13 OCEAN OPTICS   4480
##  3    13 OCEANS         4480
##  4    11 OCEAN COLOR    1216
##  5    11 OCEAN OPTICS   1216
##  6    11 OCEANS         1216
##  7     9 PROJECT         926
##  8    12 EARTH SCIENCE   909
##  9     9 COMPLETED       834
## 10    16 OCEAN COLOR     768
## # ... with 1,012 more rows
```