From 617978fe7c493311930d197de0eb53002dbc1dc2 Mon Sep 17 00:00:00 2001
From: Craig Oates <craig@craigoates.net>
Date: Sat, 2 Mar 2024 23:20:37 +0000
Subject: [PATCH] update summary-manchester.org file.

---
 summary-manchester.org | 36 ++++++++++++++++++++----------------
 1 file changed, 20 insertions(+), 16 deletions(-)

diff --git a/summary-manchester.org b/summary-manchester.org
index 36040f3..c7b4131 100644
--- a/summary-manchester.org
+++ b/summary-manchester.org
@@ -58,6 +58,7 @@ RENT RATES. ASSUME THEY DON'T.* See [[file:./on-the-market-manchester.org][On Th
 | Ideal Flatmate |       17 |      714 | £200–£1200   |      480 |      956 |
 | Roomies        |       16 |      641 | £0–£1200     |      400 |     1000 |
 | On The Market  |      438 |     1005 | £300–£1250   |      395 |     1250 |
+| Open Rent      |      114 |      735 | £400–£1500   |      400 |     1350 |
 
 #+begin_src lisp :var table=manc-avg-rent :results output raw
   (let ((filepath #P"working-data/manc-avg-rent-feb-2024.csv"))
@@ -78,22 +79,25 @@ RENT RATES. ASSUME THEY DON'T.* See [[file:./on-the-market-manchester.org][On Th
 [[file:working-data/manc-avg-rent-feb-2024.csv]]
 
 #+begin_src lisp :results file
-         (let* ((values (lisp-stat:plist-df `(:x-axis #("Right Move"
-                                                        "Spare Room"
-                                                        "Ideal Flatmate"
-                                                        "Roomies"
-                                                        "On The Market")
-                                              :y-axis #(1204 589 714 641 1005)))))
-           (vega:defplot manc-avg-rent
-             `(:title "Monthly Average Rent Rates (Bills Inc.) Manchester Feb. 2024"
-               :mark :bar
-               :width 600
-               :height 600
-               :data ,values
-               :encoding (:x (:field :x-axis :title "Company" :type :nominal :axis ("labelAngle" 0))
-                          :y (:field :y-axis :title "Rent (£)" :type :quantitative)
-                          :tooltip (:field :y-axis))))
-           (vega:write-html manc-avg-rent "renders/manc-rent-averages-feb-2024.html"))
+  (let* ((values
+           (lisp-stat:plist-df
+            `(:x-axis #("Right Move" "Spare Room" "Ideal Flatmate"
+                        "Roomies" "On The Market" "Open Rent")
+              :y-axis #(1204 589 714 641 1005 735)))))
+    (vega:defplot manc-avg-rent
+      `(:title "Monthly Average Rent Rates (Bills Inc.) Manchester Feb. 2024"
+        :mark :bar
+        :width 600
+        :height 600
+        :data ,values
+        :layer #((:mark (:type :bar)
+                  :encoding (:x (:field :x-axis :title "Company" :type :nominal :axis ("labelAngle" 0))
+                             :y (:field :y-axis :title "Rent (£)" :type :quantitative)
+                             :tooltip (:field :y-axis)))
+                 (:mark (:type :rule :color "darkorange" :size 3)
+                  :encoding (:y (:field :y-axis :type :quantitative :aggregate :average)
+                             :tooltip (:field :y-axis :type :quantitative :aggregate :average))))))
+    (vega:write-html manc-avg-rent "renders/manc-rent-averages-feb-2024.html"))
 #+end_src
 
 #+RESULTS: