Merge pull request #251 from ClojureCivitas/aog-5

AoG in Clojure wip

Author: daslu

src/data_visualization/aog_in_clojure_part1.clj

@@ -2845,11 +2845,22 @@ iris
 ;; regressions for each (species × island) combination.
 
 (facet (=* (data penguins)
-           (mapping :bill-length-mm :bill-depth-mm {:color :species})
+           (mapping :bill-length-mm
+                    :bill-depth-mm
+                    {:color :species})
            (=+ (scatter {:alpha 0.5})
                (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))])