(defn pie-chart*
([categories values & options]
(let [opts (when options (apply assoc {} options))
data (:data opts)
_values (if (coll? values) (to-list values) ($ values data))
_categories (if (coll? categories) (to-list categories) ($ categories data))
main-title (or (:title opts) "")
theme (or (:theme opts) :default)
legend? (true? (:legend opts))
dataset (DefaultPieDataset.)
chart (org.jfree.chart.ChartFactory/createPieChart
main-title
dataset
legend?
true
false)]
(do
(doseq [i (range 0 (count _values))]
(.setValue dataset (nth _categories i) (nth _values i)))
(set-theme chart theme)
chart))))
Used in 0 other vars
Source
incanter/charts.clj:1994
top
Comments top
No comments for pie-chart*. Log in to add a comment.