R 如何在情绪分析期间应用ggplot，如Silge et al.'；简·奥斯汀就是一个例子

对于比我更有经验的程序员来说，我怀疑这是一个相当直截了当的问题

我在做情绪分析，比较两家公司的评论情绪，我用Silge等人（2021年）的“tidytext简介”和简·奥斯汀的例子作为补偿

我用的不是书中的分析，而是霍斯、柯蒂斯和印多奇诺这两家公司

目的是使用我自己的数据生成类似的图。

这是现在看起来的图：

这是论文中的代码：

bing <- get_sentiments("bing")
janeaustensentiment <- tidy_books %>%
  inner_join(bing) %>%
  count(book, index = line %/% 80, sentiment) %>%
  spread(sentiment, n, fill = 0) %>%
  mutate(sentiment = positive - negative)

library(ggplot2)
ggplot(janeaustensentiment, aes(index, sentiment, fill = book)) +
  geom_bar(stat = "identity", show.legend = FALSE) +
  facet_wrap(~book, ncol = 2, scales = "free_x")

bing%
计数（书本，索引=行%/%80，情绪）%>%
价差（情绪，n，填充=0）%>%
变异（情绪=积极-消极）
图书馆（GG2）
ggplot（JaneAustensement，aes（指数、情绪、填充=书本））+
几何图形栏（stat=“identity”，show.legend=FALSE）+
刻面包裹（~book，ncol=2，scales=“free\u x”）

这是我的代码：

bing <- get_sentiments("bing")
all_sentiment <- tokens_all %>% 
  inner_join( bing) %>% 
  count(company, index=line %/% 60, sentiment) %>% 
  spread(sentiment, n, fill = 0) %>% 
  mutate(sentiment = positive - negative)

ggplot(all_sentiment, aes(index, sentiment, fill= company)) +
  geom_bar(stat = "identity", show.legend = FALSE)
  facet_wrap(~company, ncol = 2, scales = "free_x")

bing%
计数（公司，指数=行%/%60，情绪）%>%
价差（情绪，n，填充=0）%>%
变异（情绪=积极-消极）
ggplot（所有情绪，aes（指数，情绪，填充=公司））+
几何图形栏（stat=“identity”，show.legend=FALSE）
小平面包裹（~公司，ncol=2，scales=“free\u x”）

这是数据的快照

请让我知道，如果你需要复制的例子

多谢各位

---

Anders

请注意，共享最少的可复制数据、您的代码（您尝试过的内容以及您的代码被卡住的地方）等总是很重要的。为了让人们正确地帮助您：）在

geom_bar

和

facet_wrap

之间缺少

+

。可能是你没有得到分面图的原因。当你看了太久的代码，没有看到小错误。谢谢你的帮助。