parse-ec2-report.clj

(use '(incanter core charts io))
(def usage (read-dataset "report.csv" :header true))

(def instance-types
     (set (filter #(re-find #"BoxUsage" %) ($ :UsageType usage))))

(with-data (->> ($rollup :sum :UsageValue :UsageType usage)
                ($where {:UsageType {:$in instance-types}}))
  (view (bar-chart :UsageType :UsageValue
                   :title "EC Instance Usage"
                   :x-label "Instance Types"
                   :y-label "Usage Value")))