diff --git a/lsoaExample.Rmd b/lsoaExample.Rmd
index 25030b545151502ef67450403b72993f6e997749..6818173699509a39345625e9fdcf4bf15d036cbb 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))
 ```