Fix ratio_comparison chart naming (include filter suffix)
This commit is contained in:
@@ -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))
|
||||
|
||||
Reference in New Issue
Block a user