Skip to content

Instantly share code, notes, and snippets.

@sAbakumoff
Created September 11, 2016 14:11
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save sAbakumoff/3a89d30a645ef3749cb37bd6bf84f2ed to your computer and use it in GitHub Desktop.
Save sAbakumoff/3a89d30a645ef3749cb37bd6bf84f2ed to your computer and use it in GitHub Desktop.
tidy_commits %>%
filter(name=="angular.js") %>%
count(word, sort = TRUE) %>%
head(15) %>%
mutate(word = reorder(word, n)) %>%
ggplot(aes(word, n)) +
geom_bar(stat = "identity", fill=I("#d20013")) +
labs(y="Occurrences",
title="Most Common Words in Angular Commit Messages") +
coord_flip()
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment