Tidytext：将单词的频率转换为百分比

Question

我希望将单词的频率转换为单词的百分比。这在我的代码中：

text %>%
inner_join(get_sentiments("bing")) %>%
group_by(index = file, file, sentiment) %>%
summarize(n = n()) %>%
ggplot(aes(x = index, y = n, fill = file)) + 
geom_bar(stat = "identity", alpha = 0.8) + 
facet_wrap(~ sentiment, ncol = 5) `

我已尝试添加scale_y_countinous，但我似乎无法制作任何有意义的图表。

谢谢！