           [chart-line neg-scores neg-mapper :red]
           [chart-line pos-scores pos-mapper :green]
           [:rect {:fill :white :x 0 :y 0 :height 600 :width 200}]
+          [:text {:x           180
+                  :y           145
+                  :font-size   12
+                  :fill        "#777"
+                  :font-weight :bold
+                  :text-anchor "end"}
+           "Positive Affect Score"]
+          [:text {:x           180
+                  :y           226
+                  :font-size   12
+                  :fill        "#777"
+                  :font-weight :bold
+                  :text-anchor "end"}
+           "Negative Affect Score"]
           (for [n (range (inc days))]
             (let [offset (* (+ n 0.5) d)
                   scaled (* 900 (/ offset span))

(defn barchart-row
  [days span start stats tag k y scale cls]
  [:g
   (for [n (range (inc days))]
     (let [d (* 24 60 60 1000)
           offset (* n d)

                      :text-anchor "middle"}
               (df ts month-day)]))
          [barchart-row days span start custom-field-stats "#sit-ups" :cnt 295 0.3 "done"]
          [barchart-row days span start custom-field-stats "#coffee" :cnt 328 0.04 "failed"]
          [barchart-row days span start custom-field-stats "#steps" :cnt 361 0.0015 "done"]
          [barchart-row days span start custom-field-stats "#running" :distance 394 0.6 "done"]]]))))
