Ae submission

trainbenchmark/trainbenchmark-reporting/combined.R

@@ -186,7 +186,7 @@ for (scenario in c("inject", "repair")) {
     fnTmp <- paste("../diagrams/recent/benchmark/", scenario, "/", phase.filename, "-", scenario, "-tmp.pdf", sep="")
     fn <- paste("../diagrams/recent/benchmark/", scenario, "/", phase.filename, "-", scenario, ".pdf", sep="")
     if (phase == "Read") {
-      p = p + scale_y_log10(breaks = ybreaks, minor_breaks=NULL, labels = ylabels, limits = c(1e0,3e4), expand = c(0, 0)) +
+      p = p + scale_y_log10(breaks = ybreaks, minor_breaks=NULL, labels = ylabels, limits = c(3e0,3e4), expand = c(0, 0)) +
           scale_colour_manual(values = c( "#56B4E9", "#56B4E9", # Sky blue - Name Lookup
           "#009E73", "#009E73", # Bluish green - Intrinsic References
           "#0072B2", "#0072B2", # Blue - Manual Serialization
@@ -225,7 +225,7 @@ for (scenario in c("inject", "repair")) {
           # legend.key = element_blank(),
           legend.title = element_blank(),
           strip.text.x = element_blank(),
-          legend.position = "right", # "none", #
+          legend.position = "none", # "none", #
           axis.text = element_text(size = 9)
           #, panel.grid.minor = element_blank()
           )
@@ -241,7 +241,7 @@ for (scenario in c("inject", "repair")) {
       ggsave(
       plot = p,
       filename = fnTmp,
-      width = 200,
+      width = 160,
       height = 100,
       units = "mm"
       )