diff --git a/howTo/openGeogAPI/app3.R b/howTo/openGeogAPI/app3.R
index 21dfc2e24f63dcb3e77a301271a2c1937748dcbe..0fbb2ce01a94189a3690010934bbe50c45063148 100644
--- a/howTo/openGeogAPI/app3.R
+++ b/howTo/openGeogAPI/app3.R
@@ -255,7 +255,7 @@ server <- function(input, output, session) {
       
       ggplot() +
         geom_col(ghg_subset(dt = pc_detail_plot, auth_area = auth_area), mapping = aes(x = Year, y = value, fill = variable), position = "stack") +
-        geom_col(ghg_subset(dt = pc_totals_plot, auth_area = auth_area), mapping = aes(x = Year, y = value, colour = variable), fill = "none", position = "stack") +
+        geom_col(ghg_subset(dt = pc_totals_plot, auth_area = auth_area), mapping = aes(x = Year, y = value, colour = variable), fill = "transparent", position = "stack") +
         geom_hline(yintercept=0, lwd=0.4, colour="black", linetype = "dashed") +
         coord_cartesian(ylim = c(-1,15)) +
         scale_y_continuous(labels=abs) +
@@ -314,7 +314,7 @@ server <- function(input, output, session) {
       geom_col(ghg_subset3(dt = pc_detail_plot, plot_year = input$yearSlider),
                mapping = aes(x = reorder(Name, desc(Name)), y = value, fill = variable), position = "stack") +
       geom_col(ghg_subset3(dt = pc_totals_plot, plot_year = input$yearSlider),
-               mapping = aes(x = reorder(Name, desc(Name)), y = value, colour = variable), fill = "none", position = "stack") +
+               mapping = aes(x = reorder(Name, desc(Name)), y = value, colour = variable), fill = "transparent", position = "stack") +
       geom_hline(yintercept=0, lwd=0.4, colour="black", linetype = "dashed") +
       coord_flip(ylim = c(-1,15)) +
       #scale_y_continuous(labels=abs) +