diff --git a/scripts/charts/combined_ratio_comparison.r b/scripts/charts/combined_ratio_comparison.r index 4bec86b..57c468e 100644 --- a/scripts/charts/combined_ratio_comparison.r +++ b/scripts/charts/combined_ratio_comparison.r @@ -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)) diff --git a/scripts/charts/combined_ratio_comparison_merged.r b/scripts/charts/combined_ratio_comparison_merged.r index 1df1531..d955d18 100644 --- a/scripts/charts/combined_ratio_comparison_merged.r +++ b/scripts/charts/combined_ratio_comparison_merged.r @@ -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))