From d8e8747c170ae345c6d7c89db805b6f70db66025 Mon Sep 17 00:00:00 2001
From: Thomas Rushby <t.w.rushby@soton.ac.uk>
Date: Fri, 25 Jun 2021 15:56:29 +0100
Subject: [PATCH] Update elec by LSOA map.
---
lsoaExample.Rmd | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/lsoaExample.Rmd b/lsoaExample.Rmd
index 25030b5..6818173 100644
--- a/lsoaExample.Rmd
+++ b/lsoaExample.Rmd
@@ -98,15 +98,15 @@ qpal <- colorQuantile("Reds", sf_data_elec$`Median domestic electricity consumpt
leaflet(sf_data_elec %>% filter(LAD11NM == "Southampton")) %>%
addTiles() %>% # Add default OpenStreetMap map tiles
- addPolygons(color = ~qpal(`Median domestic electricity consumption \n(kWh per meter)`), fillOpacity = 0.8, weight = 1.5, popup = ~(LSOA11NM), # popups clicked
+ addPolygons(color = ~qpal(`Median domestic electricity consumption \n(kWh per meter)`), fillOpacity = 0.7, weight = 1.5, popup = ~(LSOA11NM), # popups clicked
label = ~(popup_text), # define labels
labelOptions = labelOptions( # label options
style = list("font-weight" = "normal", padding = "2px 2px"),
direction = "auto"),
highlight = highlightOptions(
- weight = 5,
- color = "#666",
- fillOpacity = 0.7,
+ weight = 3,
+ color = "Red",
+ fillOpacity = 1,
bringToFront = TRUE))
```
--
GitLab