From 4bbf8462b9e817c0e519ac9c6a6aabc9bc6da675 Mon Sep 17 00:00:00 2001
From: Thomas Rushby <t.w.rushby@soton.ac.uk>
Date: Fri, 18 Jun 2021 17:35:07 +0100
Subject: [PATCH] Update plots to fix error message within app.
---
howTo/openGeogAPI/app3.R | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/howTo/openGeogAPI/app3.R b/howTo/openGeogAPI/app3.R
index 21dfc2e..0fbb2ce 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) +
--
GitLab