Libraries library(tidytext) library(ggthemes) library(tidyverse) library(ggplot2) library(dplyr) library(scales) Load Previous STM Objects I have previously run stm models for topics ranging from 3 to 25. Based on the fit indices, a six-topic model was selected.