angular_sentiment_analysis.R

bing <- sentiments %>% 
filter(lexicon == "bing") %>% 
select(-score)

angular_word_counts<-tidy_commits %>% 
  filter(name=="angular.js") %>% 
  inner_join(bing) %>% 
  count(word, sentiment, sort = TRUE) %>% 
  ungroup()

angular_word_counts %>% filter(n > 50) %>%
       mutate(n = ifelse(sentiment == "negative", -n, n)) %>%
       mutate(word = reorder(word, n)) %>%
       ggplot(aes(word, n, fill = sentiment)) +
       geom_bar(stat = "identity") +
       labs(x="word", y="Contribution to sentiment") + 
       coord_flip()