```r
ggplot(lda_gamma, aes(gamma, fill = as.factor(topic))) +
  geom_histogram(show.legend = FALSE) +
  facet_wrap(~ topic, ncol = 4) +
  scale_y_log10() +
  labs(title = "Distribution of probability for each topic",
       y = "Number of documents", x = expression(gamma))
```

<div class="figure">
<img src="08-nasa-metadata_files/figure-epub3/plotgamma-1.png" alt="Probability distribution for each topic in topic modeling of NASA metadata description field texts"  />
<p class="caption">(\#fig:plotgamma)Probability distribution for each topic in topic modeling of NASA metadata description field texts</p>
</div>