polisy

Author: mtravers

src/data_visualization/violin2.clj

@@ -267,43 +267,9 @@
                 "body_mass_g" "species island")
     rotate-spec)
 
-;;; # TODO And finally put all the pieces together. 
-
-;;; not working yet, violin plot won't layer with other ones
-
-
-(defn everything-plot
-  [data value-field group-field]
-  {
-   ;; Data is in common
-   :data data
-   :config {:facet {:spacing 0}
-            :view {:stroke nil}}
-   :facet
-   {:row {:field group-field
-          :type :nominal
-          :header {:labelAngle 0
-                   :labelAlign "left" }}}
-   :spec
-   {:layer
-    [(dot-plot-g nil value-field group-field
-                 :jitter? true)
-     (box-plot-g nil value-field group-field
-                 :overrides {:mark {:box {:strokeWidth 1.5 :stroke "gray"}}})
-     (violin-plot nil value-field group-field)
-     ]
-    :width 800}
-   })
-
-;; ^:kind/vega-lite
-;;  (-> (everything-plot {:url penguin-data-url
-;;                     :format {:type "tsv"}}
-;;                   "body_mass_g" "species island")
-;;     #_ rotate-spec)
-
-;;; well that doesn't work
-  
+;;; # And finally put all the pieces together. 
 
+;;; What we'd like to do is make something like box-dot-plot above, but with a 3rd layer – the violins – generated by its own fn. Unfortunately that doesn't quite work due to some technical issues. So we'll expand everything out for the grand finale, which also makes it a bit easier to tweak things so they fit together better.
 
 
 ^:kind/vega-lite
@@ -317,51 +283,51 @@
  :spec
  {:height 50
   :width 800
-  :resolve {:scale {:y "independent"}}
+  :resolve {:scale {:y "independent"}}  ;each layer uses the y axis differently
+  :encoding
+  {:x {:field "body_mass_g"
+       :type :quantitative
+       :title "Body Mass (g)"}}
   :layer
   [
    ;; Violins
    {:mark {:type :area :orient :vertical}
     :transform [{:density "body_mass_g"
                  :groupby ["species island"]
-                 :bandwidth 80
-                 :extent [2200 6800]}]
+                 :bandwidth 80}]
     :encoding
-    {:color {:field "species island" :type :nominal :legend false}
-     :x {:field "value" :type :quantitative :title "body_mass_g"}
-     :y {:field "density" :type :quantitative :stack :center :axis false}
+    {:color {:field "species island"
+             :type :nominal
+             :legend false}
+     :x {:field "value"
+         :type :quantitative}
+     :y {:field "density"
+         :type :quantitative
+         :stack :center
+         :axis false
+         :scale {:range [0 50]}}
      :opacity {:value 0.7}
-     }
-    }
+     }}
 
    ;; Points
    {:mark {:type "point" :tooltip {:content :data}}
     :transform [{:calculate "random()" :as "jitter"}]
     :encoding
-    {:x {:field "body_mass_g" :type :quantitative :scale {:zero false}}
-     :y {:field "jitter" :type :quantitative :axis false}
-     }
-    }
+    {:y {:field "jitter"
+         :type :quantitative
+         :axis false}
+     }}
 
    ;; Box
    {:mark
     {:type :boxplot
      :tooltip {:content :data}
-     :extent :min-max
      :box {:strokeWidth 1.5 :stroke "gray"}}
     :transform [{:calculate "random()" :as "jitter"}]
     :encoding
-    {:x {:field "body_mass_g"
-         :type :quantitative
-         :scale {:zero false}}
-     :fill {:value "none"}
+    {:fill {:value "none"}
      :stroke {:value "black"}
-     }
-
-    }
-   ]
-  }}
-
-
+     }}
+   ] }}
 
-;;; that's all folks
+;;; There you have it, the datapoints themselves, the coarse statistics, and the probability density, all in one place so you can see how they relate.