Scatter Plot w/ Normalized Data

core.clj

(ns hooray-data.core
  (:gen-class)
  (:use (incanter core stats charts io))
  (:use [incanter.processing :only (norm)]))

(def data (read-dataset
                "https://raw.github.com/liebke/incanter/master/data/iris.dat"
                :delim \space
                :header true))

(defn normalize
  "Normalizes a set of data"
  [data]
  (let [start     (apply min data)
        stop      (apply max data)]
    (map #(norm % start stop) data)))

(def plot (scatter-plot
           (normalize (sel data :cols 0))
           (normalize (sel data :cols 1))
           :x-label "Sepal Length"
           :y-label "Sepal Width"
           :group-by (sel data :cols 4)))

(defn -main [& args]
  (view plot))