diff --git a/figures/fig_timeseries.R b/figures/fig_timeseries.R index 4f06e30..8e12ee3 100644 --- a/figures/fig_timeseries.R +++ b/figures/fig_timeseries.R @@ -13,19 +13,9 @@ bins <- read_csv(file.path(args$data, "firstflow_bins.csv"), show_col_types = FA filter(t_ms >= args$xmin, t_ms <= args$xmax) %>% prepare_solution() -pacing_label <- SOLUTION_LABELS[["tso-pacing"]] -back <- bins %>% filter(solution == pacing_label) -front <- bins %>% filter(solution != pacing_label) - -p <- ggplot() + - geom_area(data = back, aes(x = t_ms, y = packets, fill = solution), - alpha = 0.22, show.legend = FALSE) + - geom_line(data = back, aes(x = t_ms, y = packets, colour = solution, - linetype = solution), linewidth = 0.9, key_glyph = "rect") + - geom_line(data = front, aes(x = t_ms, y = packets, colour = solution, - linetype = solution), linewidth = 0.9, key_glyph = "rect") + +p <- ggplot(bins, aes(x = t_ms, y = packets, colour = solution, linetype = solution)) + + geom_line(linewidth = 0.9, key_glyph = "rect") + scale_colour_manual(values = LABEL_COLORS, breaks = names(LABEL_COLORS)) + - scale_fill_manual(values = LABEL_COLORS, breaks = names(LABEL_COLORS)) + scale_linetype_manual(values = LABEL_LINETYPES, breaks = names(LABEL_LINETYPES)) + scale_x_continuous(breaks = seq(args$xmin, args$xmax, 1)) + scale_y_continuous(breaks = seq(0, 45, 5), limits = c(0, 45)) +