 
 
 (def draw-bars
-  (-> bar2
-      (.append "rect")
-      (.attr {:height  #(y %)
-              :width (.rangeBand x)})))
+  (do
+    (-> bar2
+        (.append "rect")
+        (.attr {:height  #(y %)
+                :width (.rangeBand x)}))
+    (-> bar2
+    (.append "text")
+    (.attr {:x (/ (.rangeBand x) 2)
+            :y y
+            :dy "-0.35em"
+            :text-anchor "middle"})
+    (.style "fill" "white")
+    (.text identity))))
+
+
+
 ;; --- D3 END ---

    :news-frequencies nil
    :tweet-count 0}))

(fw/watch-and-reload
  ;; :websocket-url "ws://localhost:3449/figwheel-ws" default
 :jsload-callback (fn [] (print "reloaded"))) ;; optional callback


      (.attr {:transform (str "translate(" (margin :left) "," (margin :top) ")")})))


(def bar2
  (-> svg2
      (.selectAll "g.bar")
