Fix ratio_comparison chart naming (include filter suffix)

2026-08-05 21:12:44 +02:00
parent 353e460dcd
commit b55315bcce
2 changed files with 8 additions and 4 deletions
@@ -101,10 +101,12 @@ plot <- ggplot(
    plot.title = element_text(size = 14, face = "bold")
  )

+suffix <- gsub("^resultsdata|\\.csv$", "", csv_suffix)
+outfile <- paste0("injections/ratio_comparison_merged_trap", suffix, ".svg")
 ggsave(
-  "injections/ratio_comparison_merged_trap.svg",
+  outfile,
  plot = plot,
  width = 12,
  height = 8
 )
-print("Saved ratio_comparison_merged_trap.svg")
+print(paste("Saved", outfile))