diff --git a/R/results-parse.R b/R/results-parse.R index e82037120ca890b54a3a254b535cb53ba90d21e6..83fcbfe2a853d1c6bde81e15f17146a954240976 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) +