From 59ce976817385b57792ed64e39a90899fade1a5b Mon Sep 17 00:00:00 2001
From: cazodi <cazodi@svi.edu.au>
Date: Fri, 3 Apr 2020 17:57:22 +1100
Subject: [PATCH] fix bug with plotting known counts in all experiment facets
---
R/results-parse.R | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/R/results-parse.R b/R/results-parse.R
index e820371..83fcbfe 100644
--- a/R/results-parse.R
+++ b/R/results-parse.R
@@ -164,7 +164,7 @@ plot_models <- function(sims = baseline_sim,
} else (
plot_df %>% ggplot(aes(x = Date, y = count, colour = compartment,
linetype = sim)) +
- facet_grid(reo_exp(experiment) ~ .) +
+ facet_grid(reo_exp(experiment) ~ ., scale = 'free') +
scale_x_date(date_breaks = "1 week", date_labels = "%m-%d") +
geom_line(size = 1.5, alpha = 0.8) +
scale_colour_manual(values = compcols, labels = complabels) +
@@ -186,7 +186,7 @@ plot_models <- function(sims = baseline_sim,
} else (
plot_df %>% ggplot(aes(x = Date, y = count+1, colour = compartment,
linetype = sim)) +
- facet_grid(reo_exp(experiment) ~ .) +
+ facet_grid(reo_exp(experiment) ~ ., scale = 'free') +
scale_y_continuous(trans = trans) +
scale_x_date(date_breaks = "1 week", date_labels = "%m-%d") +
geom_line(size = 1.5, alpha = 0.8) +
--
GitLab