diff --git a/trainbenchmark/copy.sh b/trainbenchmark/copy.sh new file mode 100755 index 0000000000000000000000000000000000000000..6df65c8b52136ed4b78224d5abf57b12a50f99ca --- /dev/null +++ b/trainbenchmark/copy.sh @@ -0,0 +1,28 @@ +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 diff --git a/trainbenchmark/trainbenchmark-reporting/individual.R b/trainbenchmark/trainbenchmark-reporting/individual.R index 10a93fea9e4f599421291c00f198688faaec8144..4aaad0d9e34551112309ceb015320dedc3ead59a 100644 --- a/trainbenchmark/trainbenchmark-reporting/individual.R +++ b/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="")) } }