Faster generation of diagrams for poster.

trainbenchmark/copy.sh

+function make() {
+	echo "Make $1"
+	unlink diagrams/recent
+	unlink results/recent
+	( cd diagrams && ln -s $1 recent )
+	( cd results && ln -s $1 recent )
+	./gradlew plotIndividual
+}
+make inject
+make repair
+target=~/git/v-papers/runtime-rags-slides/images/slides-
+# target=~/git/v-papers/runtime-rags-slides/images/
+for workload_directory in repair inject
+do
+	for phase in Read-and-Check Transformation-and-Recheck
+	do
+		for query in ConnectedSegments RouteSensor
+		do
+			cp diagrams/$workload_directory/$phase-$query-embed.pdf $target$workload_directory-$phase-$query.pdf;
+		done
+	done
+done
+# cp diagrams/repair/Read-and-Check-ConnectedSegments-embed.pdf $target/images/Read-and-Check-ConnectedSegments.pdf
+# cp diagrams/repair/Read-and-Check-RouteSensor-embed.pdf $target/images/Read-and-Check-RouteSensor.pdf
+# cp diagrams/inject/Transformation-and-Recheck-ConnectedSegments-embed.pdf $target/images/inject-Transformation-and-Recheck-ConnectedSegments.pdf
+# cp diagrams/inject/Transformation-and-Recheck-RouteSensor-embed.pdf $target/images/inject-Transformation-and-Recheck-RouteSensor.pdf
+# cp diagrams/repair/Transformation-and-Recheck-ConnectedSegments-embed.pdf $target/images/repair-Transformation-and-Recheck-ConnectedSegments.pdf
+# cp diagrams/repair/Transformation-and-Recheck-RouteSensor-embed.pdf $target/images/repair-Transformation-and-Recheck-RouteSensor.pdf

trainbenchmark/trainbenchmark-reporting/individual.R

@@ -5,14 +5,20 @@ library(ggplot2)
 library(ggrepel)
 library(arules)
 library(ggforce)
+library(extrafont)
+
+# loadfonts(device="postscript")
+loadfonts(quiet=TRUE)
 
 source('util.R')
 
 # constants
 workloads = c(
-  "PosLength",  "SwitchMonitored",
-  "RouteSensor", "SwitchSet",
-  "ConnectedSegments", "SemaphoreNeighbor"
+  # "PosLength",  "SwitchMonitored",
+  "RouteSensor",
+  # "SwitchSet",
+  "ConnectedSegments"
+  # "SemaphoreNeighbor"
 )
 phases = c("Read", "Check", "Read.and.Check", "Transformation", "Recheck", "Transformation.and.Recheck")
 phasesPrettified = c("Read", "Check", "Read and Check", "Transformation", "Recheck", "Transformation and Recheck")
@@ -114,7 +120,7 @@ for (phase in phasesPrettified) {
   yminor_breaks = yaxis$yminor_breaks
   ylabels = yaxis$ylabels
 
-  for (cpage in 1:6) {
+  for (cpage in 1:2) {
     p = ggplot(df) + #na.omit(df)) +
       aes(x = as.factor(Model), y = Time) +
       labs(title = paste("Individual query execution time,", phase, "phase"), x = "Model size\n#Elements", y = "Execution times [ms]") +
@@ -122,50 +128,51 @@ for (phase in phasesPrettified) {
       # scale_shape_manual(values = seq(0, 15)) +
       scale_shape_manual(values = c(0, 15, 1, 16, 2, 17, 4, 7),
           labels=c(
-          "Name Lookup ", "Name Lookup (Incremental)", # Sky blue - JastAdd NameLookup
-          "Intrinsic References", "Intrinsic References (Incremental)", # Bluish green - JastAdd Optimized
-          "Grammar Extension", "Grammar Extension (Incremental)", # Blue - JastAdd Specialized
-          "TinkerGraph", # Orange - TinkerGraph
-          "Viatra (Incremental)", # Vermillion - VIATRA
+          "Name Lookup ", "Name Lookup (Incremental)", # http://www.sthda.com/english/wiki/r-plot-pch-symbols-the-different-point-shapes-available-in-r - JastAdd NameLookup
+          "Intrinsic References", "Intrinsic References (Incremental)", # Tud-cyan - JastAdd Optimized
+          "Grammar Extension", "Grammar Extension (Incremental)", # HKS65 (green) - JastAdd Specialized
+          "TinkerGraph", # HKS92 (grey) - TinkerGraph
+          "Viatra (Incremental)", # HKS33 (violet) - VIATRA
 	  "(none)"
       )) +
       scale_colour_manual(values = c(
-          "#56B4E9", "#56B4E9", # Sky blue - JastAdd NameLookup
-          "#009E73", "#009E73", # Bluish green - JastAdd Optimized
-          "#0072B2", "#0072B2", # Blue - JastAdd Specialized
-          "#E69F00", # Orange - TinkerGraph
-          "#D55E00", # Vermillion - VIATRA
+          "#EE7F00", "#EE7F00", # HKS07 (orange) - JastAdd NameLookup
+          "#009EE0", "#009EE0", # Tud-cyan - JastAdd Optimized
+          "#6AB023", "#6AB023", # HKS65 (green) - JastAdd Specialized
+          "#727879", # HKS92 (grey) - TinkerGraph
+          "#93107E", # HKS33 (violet) - VIATRA
           "#F0E442", # Yellow
           "#CC79A7"),
           labels=c(
-          "Name Lookup ", "Name Lookup (Incremental)", # Sky blue - JastAdd NameLookup
-          "Intrinsic References", "Intrinsic References (Incremental)", # Bluish green - JastAdd Optimized
-          "Grammar Extension", "Grammar Extension (Incremental)", # Blue - JastAdd Specialized
-          "TinkerGraph", # Orange - TinkerGraph
-          "Viatra (Incremental)", # Vermillion - VIATRA
+          "Name Lookup ", "Name Lookup (Incremental)", # HKS07 (orange) - JastAdd NameLookup
+          "Intrinsic References", "Intrinsic References (Incremental)", # Tud-cyan - JastAdd Optimized
+          "Grammar Extension", "Grammar Extension (Incremental)", # HKS65 (green) - JastAdd Specialized
+          "TinkerGraph", # HKS92 (grey) - TinkerGraph
+          "Viatra (Incremental)", # HKS33 (violet) - VIATRA
 	  "(none)"
 	  )) +
       geom_line(aes(col = Tool, group = Tool), size = 0.5) +
       scale_x_discrete(breaks = xbreaks, labels = xlabels) +
-      scale_y_log10(breaks = ybreaks, minor_breaks=yminor_breaks, labels = ylabels) +
+      scale_y_log10(breaks = ybreaks, minor_breaks=yminor_breaks, labels = ylabels, limits = c(2e-3,8e4), expand = c(0, 0)) +
       facet_grid_paginate(~ Workload, nrow=1, ncol = 1, page=cpage, scale = "free") +
       guides(color = guide_legend(ncol = 4)) +
       theme_bw() +
       theme(
         plot.title = element_text(hjust = 0.5),
-        text = element_text(size = 10),
+        text = element_text(family="Open Sans", size = 10),
         # legend.key = element_blank(),
         legend.title = element_blank(),
         legend.position = "bottom",
-        axis.text = element_text(size = 9)
+        axis.text = element_text(size = 16)
 	#, panel.grid.minor = element_blank()
       )
     print(p)
     ggsave(
       plot = p,
       filename = paste("../diagrams/recent/", phase.filename, "-",workloads[cpage], ".pdf", sep=""),
-      width = 280, height = 210, units = "mm"
+      width = 150, height = 140, units = "mm"
     )
+    embed_fonts(paste("../diagrams/recent/", phase.filename, "-",workloads[cpage], ".pdf", sep=""), outfile=paste("../diagrams/recent/", phase.filename, "-",workloads[cpage], "-embed", ".pdf", sep=""))
   }
 
 }