fixed table; added report of n MSOAs above elec ratio threshold

isleOfWight/beisIoWData.Rmd

@@ -168,13 +168,33 @@ dtMsoaSpine <- dtMsoaSpine[dtMsoaNDElec]
 dtMsoaSpine[, elecRatio := kwhDElec/(kwhDElec + kwhNDElec)]
 dtMsoaSpine[, gasRatio := kwhDGas/(kwhNDGas + kwhDGas)]
 
+t <- dtMsoaSpine[order(-elecRatio)]
+kableExtra::kable(head(t[, .(MSOAName, MSOACode, 
+                                       elecRatio, kwhDElec, kwhNDElec,
+                             gasRatio, kwhDGas, kwhNDGas)],10),
+                  caption = "All MSOAs") %>%
+  kable_styling()
+
 dtMsoaSpineIoW <- dtMsoaSpine[MSOAName %like% "Wight"]
+
 t <- dtMsoaSpineIoW[order(-elecRatio)]
 kableExtra::kable(head(t[, .(MSOAName, MSOACode, 
                                        elecRatio, kwhDElec, kwhNDElec,
-                             gasRatio, kwhDGas, kwhNDGas)],10)) %>%
+                             gasRatio, kwhDGas, kwhNDGas)],10),
+                  caption = "IoW MSOAs") %>%
   kable_styling()
 
+# how many > X%?
+# All MSOAs > 95%
+nrow(dtMsoaSpine[elecRatio > 0.95])
+
+# Solent sample region?
+
+# IoW MSOAs > 90%
+nrow(dtMsoaSpineIoW[elecRatio > 0.90])
+
+# IoW MSOAs > 80%
+nrow(dtMsoaSpineIoW[elecRatio > 0.80])
 ```
 
 # Annexes