|
|
|
@ -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: |
|
|
|
|