 
 (plot (-> (sql/query db ["SELECT fips_county as x, unemploy_rate as y
                           FROM unemployment
-                          ORDER BY unemploy_rate DESC LIMIT 10"])
-          vt/dodged-bar))
+                          ORDER BY unemploy_rate DESC LIMIT 20"])
+          stacked-bar
+          vertical-x-labels))
 
 (def highest-unemployment-counties
   (sql/query db

               FROM fips_codes
               INNER JOIN unemployment ON (1000*fips_codes.state_fips + fips_codes.county_fips) = unemployment.fips_county
               WHERE fips_codes.entity_desc='County'
               ORDER BY y DESC LIMIT 20"]))

;; counties with highest unemployment rate
(plot (-> highest-unemployment-counties
          vt/stacked-bar
          vertical-x-labels))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(def county-unemployment-geo
  (sql/query db [(str "SELECT feature as geopath, unemploy_rate as fill from unemployment
                       INNER JOIN us_10m ON us_10m.id=unemployment.fips_county")]
             :row-fn #(update % :geopath json/read-str)))

(plot (choropleth county-unemployment-geo))
