harlequix/tso-paper-eval
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

feat(graphs): added legend titles to appendix graphs

Browse Source
This commit is contained in:
Sebastian Rust
2026-06-04 14:31:38 +02:00
parent 5eeb028ff2
commit d6db2cba33
2 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
figures/fig_bandwidth_idt_cdf.R
+2 -1
View File
@@ -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))
figures/fig_flows_idt_cdf.R
+1
View File
@@ -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))