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

# Select the top 15 terms by topic and reorder term
word_probs3 <- ___ %>% 
  ___(___) %>% 
  ___(___) %>% 
  ___() %>%
  ___(___)

# Plot word_probs3, color and facet based on topic
___(
  ___, 
  ___(___)
) +
  ___(___) +
  ___(___) +
  coord_flip()