aog wip

Author: daslu

src/data_visualization/aog_in_clojure_part1.clj

@@ -553,10 +553,10 @@
   Example:
   (validate! Layer my-layer)"
   [schema value]
-  (when-let [errors (validate schema value)]
-    (throw (ex-info "Validation failed"
-                    {:errors errors
-                     :value value}))))
+  #_(when-let [errors (validate schema value)]
+      (throw (ex-info "Validation failed"
+                      {:errors errors
+                       :value value}))))
 
 (defn valid?
   "Check if a value is valid according to a schema.
@@ -2850,6 +2850,13 @@ iris
                (linear)))
        {:col :island})
 
+;; equivalently:
+(-> (data penguins)
+    (mapping :bill-length-mm :bill-depth-mm {:color :species})
+    (=+ (scatter {:alpha 0.5})
+        (linear))
+    (facet {:col :island}))
+
 (kind/test-last [#(and (= (count %) 2)
                        (= (:=col (first %)) :island)
                        (= (:=color (first %)) :species))])