|
|
|
@ -103,7 +103,7 @@ Run =m-x slime= before executing the following code.
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#+begin_src lisp :results silent :session |
|
|
|
|
(ql:quickload :vgplot) |
|
|
|
|
(ql:quickload :plot/vega) |
|
|
|
|
(ql:quickload :lisp-stat) |
|
|
|
|
(ql:quickload :data-frame) |
|
|
|
|
#+end_src |
|
|
|
@ -154,7 +154,7 @@ CATEGORY | STRING | NIL | NIL
|
|
|
|
|
WIDTH | DOUBLE-FLOAT | NIL | NIL |
|
|
|
|
HEIGHT | DOUBLE-FLOAT | NIL | NIL |
|
|
|
|
DEPTH | SYMBOL | NIL | NIL |
|
|
|
|
PIXEL-WIDTH | DOUBLE-FLOAT | NIL | NIL |
|
|
|
|
PIXEL-WIDTH | INTEGER | NIL | NIL |
|
|
|
|
PIXEL-HEIGHT | INTEGER | NIL | NIL |
|
|
|
|
PLAY-LENGTH | INTEGER | NIL | NIL |
|
|
|
|
MEDIUM | STRING | NIL | NIL |
|
|
|
@ -514,7 +514,7 @@ NIL
|
|
|
|
|
#<DATA-FRAME:DATA-FRAME (375 observations of 2 variables)> |
|
|
|
|
:end: |
|
|
|
|
|
|
|
|
|
** <2023-03-27 Mon> Plot: Width vs Height Scatter (non-digital) |
|
|
|
|
** <2023-03-27 Mon> Plot: Width Vs Height Scatter (Non-Digital) |
|
|
|
|
|
|
|
|
|
#+begin_src lisp :session :results file |
|
|
|
|
(vega:defplot width-height |
|
|
|
@ -597,3 +597,42 @@ 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 |
|
|
|
|
|
|
|
|
|
** <2023-03-28 Tue> Note: Corrected A Line of Lines in CSV file |
|
|
|
|
|
|
|
|
|
I've made a note of the error in [[<2023-03-27 Mon> Note: A Line of Lines has wrong dimensions][A Line of Lines has wrong dimensions]]. I made |
|
|
|
|
the correction directly in =data/artwork-2023-03-21.csv= because I am lazy. I |
|
|
|
|
didn't want to download the recently updated database, from the live site, and |
|
|
|
|
run the scripts to remove/clean it again. The change takes a few seconds (on my |
|
|
|
|
machine) but the downloading and cleaning of the database from the server; the |
|
|
|
|
exporting of the data to a CSV file and adding said CSV file is not. |
|
|
|
|
|
|
|
|
|
** <2023-03-28 Tue> Plot: Corrected Width Vs Height Scatter (Non-Digital) |
|
|
|
|
|
|
|
|
|
#+begin_src lisp :session :results file |
|
|
|
|
(vega:defplot width-height |
|
|
|
|
`(:title "Art: (Corrected) Width vs Height (Non-Digital)" |
|
|
|
|
:description "Comparison between the physical dimensions of artworks (corrected)." |
|
|
|
|
:width 400 |
|
|
|
|
:height 400 |
|
|
|
|
:mark :circle |
|
|
|
|
:data ,*artworks-df* |
|
|
|
|
:selection (:grid (:type :interval :bind :scales)) |
|
|
|
|
:encoding (:x (:field :width :title "Width (cm)" :type :quantitative) |
|
|
|
|
:y (:field :height :title "Height (cm)" :type :quantitative) |
|
|
|
|
:tooltip (:field :title :type :nominative) |
|
|
|
|
:color (:field :title :legend :null)))) |
|
|
|
|
|
|
|
|
|
(vega:write-html width-height "output/art-width-height-2023-03-21-corrected.html") |
|
|
|
|
#+end_src |
|
|
|
|
|
|
|
|
|
#+RESULTS: |
|
|
|
|
[[file:output/art-width-height-2023-03-21-corrected.html]] |
|
|
|
|
|
|
|
|
|
*** Side-by-Side of Width Vs Height (Corrected and Original) |
|
|
|
|
|
|
|
|
|
Included these images side-by-side just to see how the correction changes the |
|
|
|
|
feel of the graph. |
|
|
|
|
|
|
|
|
|
[[file:output/art-width-height-2023-03-21.png]] |
|
|
|
|
[[file:output/art-width-height-2023-03-21-corrected.png]] |
|
|
|
|