fix bug with plotting known counts in all experiment facets

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) +