R tidytext 图出现垂直而不是水平

如何解决R tidytext 图出现垂直而不是水平

我正在尝试使用 tidytext code here 创建情绪分析，但我的图表是垂直的，与水平的原始输出相比，输出没有意义。我该如何解决这个问题？

#Unnest tokens
edAItext = edAI %>% select(Group,Participant_ID,Brainscape_Pattern) %>% 
  unnest_tokens(word,Brainscape_Pattern)

# Inner join
bing_word_counts <- edAItextTest %>%
   inner_join(get_sentiments("bing")) %>%
   count(word,sentiment,sort = TRUE) %>%
   ungroup()

#Check
 bing_word_counts

#Plot
 bing_word_counts %>%
   group_by(sentiment) %>%
   slice_max(n,n = 5) %>%
   ungroup() %>%
   mutate(word = reorder(word,n)) %>%
   ggplot(aes(n,word,fill = sentiment)) +
   geom_col(show.legend = FALSE) +
   facet_wrap(~sentiment,scales = "free_y") +
  labs(x = "Contribution to sentiment",y = NULL)

This is how it looks:

它应该是这样的：