STM Top Tweets by Topic (k = 10)

STM Top Tweets for Close Reading

The table below lists the top 20 tweets per topic (k = 10), based on STM gamma scores.
You can search by topic, tweet ID (document), or any word in the tweet text.

# Build one data frame: 10 topics × 20 tweets = 200 rows
top_stm_tweets <- map_dfr(1:10, ~ {
  top_tweets_for_topic(.x, n = 20) %>%
    mutate(topic = .x)
}) %>%
  select(topic, document, gamma, text) %>%
  arrange(topic, desc(gamma))

# Interactive, searchable table
datatable(
  top_stm_tweets,
  filter = "top",
  options = list(
    pageLength = 20,
    lengthMenu = c(10, 20, 50, 100),
    autoWidth = TRUE
  )
)