Merge pull request #25 from harold/main

`[scicloj/tableplot/ideas/stacking]` First draft

Author: timothypratley

site/db.edn

@@ -42,7 +42,14 @@
    :image       "https://avatars.githubusercontent.com/u/49298?v=4"
    :email       "timothypratley@gmail.com"
    :affiliation [:hummi]
-   :links       [{:icon "github" :href "https://github.com/timothypratley"}]}]
+   :links       [{:icon "github" :href "https://github.com/timothypratley"}]}
+  {:id          :harold
+   :name        "Harold"
+   :url         "https://techascent.com"
+   :image       "https://avatars.githubusercontent.com/u/7443?v=4"
+   :email       "harold@techascent.com"
+   :affiliation [:techascent]
+   :links       [{:icon "github" :text "GitHub" :href "https://github.com/harold"}]}]
 
  :affiliation
  [{:id   :clojure.core
@@ -57,7 +64,10 @@
   {:id   :hummi
    :name "Hummi"
    ;; TODO: as icons
-   :url  "https://hummi.app"}]
+   :url  "https://hummi.app"}
+  {:id   :techascent
+   :name "TechAscent"
+   :url "https://techascent.com"}]
 
  :topic
  [{:id        :core

src/scicloj/tableplot/ideas/stacking.clj

@@ -0,0 +1,59 @@
+^{:kindly/hide-code true
+  :clay {:title  "Transforming Datasets to Stack Charts"
+         :quarto {:type     :post
+                  :author   [:harold]
+                  :date     "2025-06-24"
+                  :description "A couple of quick ideas about visualizing data, especially with regard to comparison."
+                  :category :datasets
+                  :tags     [:charts :datasets]
+                  :keywords [:charts :datasets]}}}
+(ns scicloj.tableplot.ideas.stacking
+  (:require [tech.v3.dataset :as ds]
+            [scicloj.tableplot.v1.plotly :as plotly]))
+
+;; With observed data, presumably from two runs of some experiment...
+
+(def ds0
+  (ds/->dataset "https://gist.githubusercontent.com/harold/18ba174c6c34e7d1c5d8d0954b48327c/raw"
+                {:file-type :csv}))
+
+(def ds1
+  (ds/->dataset "https://gist.githubusercontent.com/harold/008bbcd477bf51b47548d680107a6195/raw"
+                {:file-type :csv}))
+
+;; Well, what have we got?
+
+ds0
+
+;; A few hundred numbers... Hm...
+
+ds1
+
+;; This neglects the hundreds of thousands of years invested in evolving a visual system...
+
+(-> ds0
+    (plotly/base {:=title "Run 0"})
+    (plotly/layer-point {:=y "y"}))
+
+(-> ds1
+    (plotly/base {:=title "Run 1"})
+    (plotly/layer-point {:=y "y"}))
+
+;; Better; however, our aim is to compare them... Which is higher?
+
+(-> (ds/concat (assoc ds0 :v "Run 0")
+               (assoc ds1 :v "Run 1"))
+    (plotly/base {:=title "Comparison Between Runs"})
+    (plotly/layer-point {:=y "y"
+                         :=color :v}))
+
+;; Now it's up to the viewer to decide whether they like higher numbers or not.
+
+;; ---
+
+;; There are a couple of interesting ideas in that last bit of code:
+;;
+;; 1. `assoc` a constant onto a ds creates a constant column
+;; 1. `:=color` takes care of grouping the results and the downstream display
+
+;; Neat.