关于AFINN,Bing et al., NRC的问题

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

我是R的初学者，刚刚尝试用 AFINN, Bing et al., NRC 来分析一个txt文件，但是结果非常奇怪。希望各位可以帮我看看问题出在哪，谢谢！！
code：
setwd("/Users/naifeipan")
news_us.v <- read_file('news_us.txt')
news_us.lines.v <- unlist(strsplit(news_us.v, split = '\n'))
news_us.lines.v = gsub("\r", "", news_us.lines.v)
news_us.lines.v
news_us.df <- data_frame(prez = 'news', lines = news_us.lines.v) %>%
  mutate(line_id = row_number()) %>%
  unite(doc_id, prez, line_id, remove = FALSE) %>%
  unnest_tokens(word, lines)
news_us.df

get_sentiments("afinn")
get_sentiments("bing")
get_sentiments("nrc")

afinn <- news_us.df %>% inner_join(get_sentiments("afinn")) %>% group_by(index = line_id) %>%
  summarise(sentiment = sum(score))%>% mutate(method = "AFINN")

bing_and_nrc <- bind_rows(news_us.df %>% inner_join(get_sentiments("bing")) %>%
                            mutate(method = "Bing et al."), news_us.df %>%
                            inner_join(get_sentiments("nrc") %>%
                                         filter(sentiment %in% c("positive","negative")))%>%
                            mutate(method = "NRC")) %>%
  count(method, index = line_id ,sentiment)%>%
  spread(sentiment,n,fill = 0)%>%mutate(sentiment = positive - negative)

bind_rows(afinn, bing_and_nrc)%>%ggplot(aes(index,sentiment, fill = method)) +
  geom_col(show.legend = FALSE) + facet_wrap (~method, ncol=1,scales = "free_y")

par(mfrow=c(1,1))

下面是图：

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：Bing Finn bin Fin ING