update artwork.org.

artwork.org

@@ -249,6 +249,13 @@ PIXEL-WIDTH ()
  max=3508.00
 :end:
 
+#+begin_src lisp
+  (format nil "Total (2D) Digital Artworks: ~A" (- 375 341))
+#+end_src
+
+#+RESULTS:
+: Total (2D) Digital Artworks: 34
+
 ** <2023-03-27 Mon> Summary: Pixel Height
 
 #+begin_src lisp :session :results drawer
@@ -289,13 +296,11 @@ paper", 1 (0%) x "Staples on paper",
 database. See [[published_summary][Published Summary]] below for the artwork creation date.
 
 #+name: created_at_summary
-#+begin_src lisp :session :results output -r
+#+begin_src lisp :session :results drawer
   (lisp-stat:summarize-column '*artworks-df*:created-at)
 #+end_src
 
 #+RESULTS: created_at_summary
-
-#+RESULTS:
 :results:
 338 (90%) x "2022-04-11", 2 (1%) x "2022-04-11 00:00:00.000000Z", 1 (0%) x
 "2022-06-25 20:47:51.282515", 1 (0%) x "2022-07-19 02:21:20.722981Z", 1 (0%) x
@@ -553,10 +558,64 @@ NIL
 #+RESULTS:
 [[file:output/art-width-height-2023-03-21.html]]
 
-*** <2023-03-27 Mon> A Line of Lines has wrong dimensions
+*** <2023-03-27 Mon> Note: A Line of Lines has wrong dimensions
 
 They should be =21 x 14.8 cm= and not =210 x 148 cm=. *I have updated the dimensions
 on the live site.* I did not notice it until I saw the chart. Basically, the
 decimal point is was shifted one place to the right.
 
 [[file:output/art-width-height-2023-03-21.png]]
+
+** <2023-03-27 Mon> Plot: Pixel-Width vs Pixel-Height (digital only)
+
+#+begin_src lisp :session :results file
+  (defparameter *artworks-px-w-h-df*
+    (lisp-stat:df-remove-duplicates
+     (lisp-stat:drop-missing
+      (lisp-stat:select *artworks-df* t '(pixel-width pixel-height))))
+    "A data-frame containing all the `PIXEL-WIDTH' and `PIXEL-HEIGHT' values.
+  All the missing/null values have been removed from the list.")
+
+  (vega:defplot px-width-px-height
+    `(:title "Art: Pixel-Width vs Pixel-Height (2D Digital)"
+      :description
+      "Comparison between the pixel width and height dimensions of digital artworks."
+      :width 400
+      :height 400
+      :mark :circle
+      :data ,*artworks-px-w-h-df* ; ,*artworks-df*
+      :selection (:grid (:type :interval :bind :scales))
+      :encoding (:x (:field :pixel-width :title "Pixel-Width (px)" :type :quantitative)
+                 :y (:field :pixel-height :title "Pixel Height (px)" :type :quantitative)
+                 :tooltip (:field :title :type :nominative)
+                 :color (:field :PIXEL-WIDTH :legend :null))))
+
+  (vega:write-html width-height "output/art-px-width-px-height-2023-03-21.html")
+#+end_src
+
+#+RESULTS:
+[[file:output/art-px-width-px-height-2023-03-21.html]]
+
+#+begin_src lisp :session :results output raw
+  (lisp-stat:df-print
+   (lisp-stat:df-remove-duplicates
+    (lisp-stat:drop-missing
+     (lisp-stat:select *artworks-df* t '(pixel-width pixel-height))
+     (lambda (x) (eql :na x)))))
+#+end_src
+
+#+RESULTS:
+| PIXEL-WIDTH | PIXEL-HEIGHT |
+|-------------+--------------|
+|    3142.0d0 |         4722 |
+|    2480.0d0 |         3508 |
+|    3508.0d0 |         2480 |
+|    3456.0d0 |         4608 |
+|    3402.0d0 |         4536 |
+
+There is a lot of duplicated sizes in these columns. The chart *had* loads of dots
+resting on top of each other so you only see five at any one point. I've removed
+all the rows with missing values and the duplicates to help show how thirty-four
+(2D) digital images only show-up as five images in the chart.
+
+** TODO <2023-03-27 Mon> Compare landscape to portrait