การแสดงภาพ Sentiment จาก NRC

# Pull in the nrc dictionary, count the sentiments and reorder them by count
sentiment_counts <- ___(___) %>% 
  ___(___) %>% 
  ___(sentiment2 = ___(___, ___))

# Visualize sentiment_counts using the new sentiment factor column
___(___, aes(___, ___)) +
  geom_col() +
  coord_flip() +
  # Change the title to "Sentiment Counts in NRC", x-axis to "Sentiment", and y-axis to "Counts"
  ___(
    ___ = ___,
    ___ = ___,
    ___ = ___
  )