问题描述
我正在尝试使用 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:
它应该是这样的:
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)