Skip to content

Instantly share code, notes, and snippets.

@citizen428

citizen428/gist:518090

Created August 10, 2010 21:49
Show Gist options
  • Save citizen428/518090 to your computer and use it in GitHub Desktop.
Save citizen428/518090 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.clj
(use '(incanter core charts io))
Raw
gistfile2.clj
(def all-langs (read-dataset "Downloads/git_lang_stats.txt"
:header true
:delim \;))
(def func-langs #{"Clojure" "Erlang" "F#" "Haskell" "OCaml" "Scala" "Scheme"})
Raw
gistfile3.clj
(with-data ($where {:Language {:$in func-langs}} all-langs)
Raw
gistfile4.clj
(view (bar-chart :Language
(map / ($ :Repositories) ($ :Users))
:title "Repositories per user on Github"
:x-label "Language"
:y-label "Repositories/user"))
Raw
gistfile5.clj
(view all-langs)
Raw
gistfile6.clj
(use '(incanter core charts io))
(def all-langs (read-dataset "Downloads/git_lang_stats.txt"
:header true
:delim \;))
(def func-langs #{"Clojure" "Erlang" "F#" "Haskell" "OCaml" "Scala" "Scheme"})
(with-data ($where {:Language {:$in func-langs}} all-langs)
(view (bar-chart :Language
:Users
:title "Users per language on Github"
:x-label "Language"
:y-label "Users"
:set-theme :dark))
(view (bar-chart :Language
:Repositories
:title "Repositories per language on Github"
:x-label "Language"
:y-label "Repositories"))
(view (bar-chart :Language
(map / ($ :Repositories) ($ :Users))
:title "Repositories per user on Github"
:x-label "Language"
:y-label "Repositories/user"))
(view (pie-chart :Language
:Users
:title "Users of functional languages on Github"
:legend true)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment