Strip the tacle-.*- prefix to make the facet titles fit

scripts/charts/combined_fault_probability.r

@@ -42,7 +42,11 @@ extract_info <- function(path) {
     warning(paste("Could not parse:", dir_name))
     return(NULL)
   }
-  list(base_name = match[1, 2], variant = match[1, 3], path = path)
+
+  # "tacle-kernel-bsort" -> "bsort", otherwise it doesn't fit
+  base_name <- sub("^tacle-[^-]+-", "", match[1, 2])
+
+  list(base_name = base_name, variant = match[1, 3], path = path)
 }
 
 # Load data