The Venice chart is based on the XChart library.
Run this script from the REPL to download the XChart libraries:
(do
(load-module :xchart-install)
;; Download the XChart libs from Maven
(xchart-install/install :dir (repl/libs-dir) :silent false)
;; Restart the REPL to make the new libs available to the REPL Java VM
(println "\nRestarting REPL...")
(repl/restart))Examples:
(do
(load-module :xchart)
(xchart/write-to-file
(xchart/xy-chart
{ "y(x)" { :x [0.0 1.0 2.0]
:y [0.0 0.8 2.0] } }
{ :title "Line Chart"
:render-style :line ; :step
:x-axis { :title "X" :decimal-pattern "#0.0"}
:y-axis { :title "Y" :decimal-pattern "#0.0"}
:theme :xchart } )
:png ; write as PNG
120 ; render with 120 dpi
(io/file "line-chart.png")))
(do
(load-module :xchart)
(import :java.awt.Color)
(xchart/write-to-file
(xchart/xy-chart
{ "Peter" { :x (range 10)
:y (mapv #(+ % (* 3 (rand-double))) (range 10))
:style { :marker-type :circle
:marker-color (. :Color :new 0I 0I 255I 128I)
:line-color :blue } }
"Max" { :x (range 10)
:y (mapv #(+ 2 % (* 4 (rand-double))) (range 0 5 0.5))
:style { :marker-type :square
:marker-color (. :Color :new 255I 0I 0I 128I)
:line-color :red } }}
{ :title "Longest running distance"
:render-style :line
:width 640
:height 500
:x-axis { :title "Months (since start)" :decimal-pattern "#"}
:y-axis { :title "Distance" :decimal-pattern "##.## km"}
:theme :xchart } )
:png ; write as PNG
120 ; render with 120 dpi
(io/file "line-chart-2.png")))
(do
(load-module :xchart)
(import :java.awt.Color)
(defn months [year]
(map #(time/date (time/local-date year % 1)) (range 1 13)))
(xchart/write-to-file
(xchart/xy-chart
{ "Apples" { :x (months 2019)
:y [0 2 3 3 4 7 7 8 8 7 7 5]
:style { :marker-type :circle
:marker-color :blue
:line-color :blue } }
"Prunes" { :x (months 2019)
:y [3 2 2 0 2 4 3 1 3 4 2 0]
:style { :marker-type :square
:marker-color :red
:line-color :red } }}
{ :title "Fruits"
:render-style :line
:width 640
:height 500
:x-axis { :title "Months" :date-pattern "MMM"}
:y-axis { :title "Weight" :decimal-pattern "# tons"}
:theme :xchart } )
:png ; write as PNG
120 ; render with 120 dpi
(io/file "line-chart-3.png")))
(do
(load-module :xchart)
(xchart/write-to-file
(xchart/xy-chart
{ "Error bars" { :x (range 0 100 10)
:y [20 30 45 40 60 65 80 75 95 90]
:error-bars [5 8 2 9 3 3 8 3 9 3] }}
{ :title "Errors"
:render-style :line
:error-bars-color :match-series
:theme :xchart } )
:png ; write as PNG
120 ; render with 120 dpi
(io/file "line-chart-4.png")))
(do
(load-module :xchart)
(xchart/write-to-file
(xchart/xy-chart
{ "Error rates" { :x [1 2 3 4 5]
:y [50.0 25.0 16.66 12.5 10.0]
:error-bars [5.0 2.5 1.66 1.25 1.0]
:style { :marker-type :square
:marker-color :red }}}
{ :title "Error Bars"
:render-style :scatter
:legend {:position :inside-ne}
:theme :xchart } )
:png ; write as PNG
120 ; render with 120 dpi
(io/file "line-chart-5.png")))
(do
(load-module :xchart)
(xchart/write-to-file
(xchart/xy-chart
{ "a" { :x [0.0 3.0 5.0 7.0 9.0]
:y [0.0 8.0 12.0 9.0 8.0] }
"b" { :x [0.0 2.0 4.0 6.0 9.0]
:y [2.0 9.0 7.0 3.0 7.0] }
"c" { :x [0.0 1.0 3.0 8.0 9.0]
:y [1.0 2.0 4.0 3.0 4.0] } }
{ :title "Area Chart"
:render-style :area ; :step-area
:legend {:position :outside-e}
:x-axis { :title "X" :decimal-pattern "#0.#"}
:y-axis { :title "Y" :decimal-pattern "#0.#"}
:theme :xchart } )
:png ; write as PNG
120 ; render with 120 dpi
(io/file "area-chart.png")))
(do
(load-module :xchart)
(defn rand-list [count max] (map (fn [x] (rand-long max)) (range count)))
(xchart/write-to-file
(xchart/xy-chart
{ "Rand 1" { :x (rand-list 8 10)
:y (rand-list 8 10) }
"Rand 2" { :x (rand-list 8 10)
:y (rand-list 8 10) } }
{ :title "Scatter Chart"
:render-style :scatter
:marker { :size 20 }
:x-axis { :title "X" :decimal-pattern "#0.0" :min 0.0 :max 10.0 }
:y-axis { :title "Y" :decimal-pattern "#0.0" :min 0.0 :max 10.0 }
:theme :xchart } )
:png ; write as PNG
120 ; render with 120 dpi
(io/file "scatter-chart.png")))
(do
(load-module :xchart)
(def series1
[ {:x 1 :y 2 :bubble 30}
{:x 10 :y 8 :bubble 12}
{:x 12 :y 16 :bubble 15}
{:x 20 :y 25 :bubble 24} ])
(def series2
[ {:x 10 :y 4 :bubble 30}
{:x 5 :y 5 :bubble 36}
{:x 6 :y 20 :bubble 50}
{:x 18 :y 20 :bubble 9} ])
(defn bubblify [series]
{:x (map (fn [t] (:x t)) series)
:y (map (fn [t] (:y t)) series)
:bubble (map (fn [t] (:bubble t)) series)})
(xchart/write-to-file
(xchart/bubble-chart
{"Series 1" (bubblify series1)
"Series 2" (bubblify series2) }
{ :title "Bubble Chart"
:legend {:position :inside-se}
:x-axis {:title "Series 2"}
:y-axis {:title "Series 1"}
:theme :xchart } )
:png ;; write as PNG
120 ;; render with 120 dpi
(io/file "bubble-chart.png")))
(do
(load-module :xchart)
(xchart/write-to-file
(xchart/category-chart
{ "Bananas" {"Mon" 6, "Tue" 2, "Fri" 3, "Wed" 1, "Thu" 3}
"Apples" {"Tue" 3, "Wed" 5, "Fri" 1, "Mon" 1}
"Pears" {"Thu" 1, "Mon" 3, "Fri" 4, "Wed" 1} }
{ :title "Weekly Fruit Sales"
:theme :xchart
:x-axis {:order ["Mon" "Tue" "Wed" "Thu" "Fri"] } } )
:png ;; write as PNG
120 ;; render with 120 dpi
(io/file "bar-chart.png")))
(do
(load-module :xchart)
(xchart/write-to-file
(xchart/pie-chart
{ "A" 400
"B" 310
"C" 50 }
{ :title "Pie Chart"
:render-style :pie
:theme :xchart } )
:png ;; write as PNG
120 ;; render with 120 dpi
(io/file "pie-chart.png")))(do
(load-module :xchart-install)
;; Download the XChart libs from Maven
(xchart-install/install :dir (repl/libs-dir) :silent false))