การตั้งชื่อสามหัวข้อ

# Select the top 15 terms by topic and reorder term
word_probs2 <- ___ %>% 
  ___(___) %>% 
  ___(___) %>% 
  ___() %>%
  mutate(term2 = ___)

# Plot word_probs2, color and facet based on topic
ggplot(
  ___, 
  ___(___)
) +
  geom_col(show.legend = FALSE) +
  ___(___, scales = "free") +
  coord_flip()