diff --git a/figures/fig_bandwidth_idt_cdf.R b/figures/fig_bandwidth_idt_cdf.R index ce4d43e..0eb4245 100644 --- a/figures/fig_bandwidth_idt_cdf.R +++ b/figures/fig_bandwidth_idt_cdf.R @@ -20,10 +20,11 @@ p <- ggplot(idts, aes(x = idt_us, colour = bw)) p <- p + stat_ecdf(linewidth = 0.9, pad = FALSE, key_glyph = "rect") p <- p + scale_x_log10(labels = label_comma()) p <- p + scale_y_continuous(labels = label_pct()) -p <- p + scale_colour_viridis_d(end = 0.9, name = "Aggregate (Gbps)") +p <- p + scale_colour_viridis_d(end = 0.9, name = "Bottleneck (Gbps)") p <- p + labs(x = paste0("Inter-departure time within flow (", label_us(), ")"), y = "CDF") p <- p + theme_paper() p <- p + theme(legend.text = element_text(size = rel(0.8)), legend.key.size = unit(6, "pt")) +p <- p + theme(legend.title = element_text(size = rel(0.8))) if (args$zoom) { p <- p + coord_cartesian(xlim = c(3, 1000), ylim = c(0.9, 1.0)) diff --git a/figures/fig_flows_idt_cdf.R b/figures/fig_flows_idt_cdf.R index f1a06e4..3f9f1d4 100644 --- a/figures/fig_flows_idt_cdf.R +++ b/figures/fig_flows_idt_cdf.R @@ -24,6 +24,7 @@ p <- p + scale_colour_viridis_d(end = 0.9, name = "Flows") p <- p + labs(x = paste0("Inter-departure time within flow (", label_us(), ")"), y = "CDF") p <- p + theme_paper() p <- p + theme(legend.text = element_text(size = rel(0.8)), legend.key.size = unit(6, "pt")) +p <- p + theme(legend.title = element_text(size = rel(0.8))) if (args$zoom) { p <- p + coord_cartesian(xlim = c(3, 1000), ylim = c(0.9, 1.0))