Fix ratio_comparison chart naming (include filter suffix)

This commit is contained in:
2026-08-05 21:12:44 +02:00
parent 353e460dcd
commit b55315bcce
2 changed files with 8 additions and 4 deletions
+4 -2
View File
@@ -98,5 +98,7 @@ plot <- ggplot(
plot.title = element_text(size = 14, face = "bold")
)
ggsave("injections/ratio_comparison.svg", plot = plot, width = 12, height = 8)
print("Saved ratio_comparison.svg")
suffix <- gsub("^resultsdata|\\.csv$", "", csv_suffix)
outfile <- paste0("injections/ratio_comparison", suffix, ".svg")
ggsave(outfile, plot = plot, width = 12, height = 8)
print(paste("Saved", outfile))
@@ -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))