From 84c273273048e2f821b8a332a228ed5eeae3f309 Mon Sep 17 00:00:00 2001 From: Bryan Roessler Date: Wed, 4 Sep 2024 02:10:00 -0400 Subject: [PATCH] Add titles to plots --- workflow/apps/r/calculate_interaction_zscores5.R | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/workflow/apps/r/calculate_interaction_zscores5.R b/workflow/apps/r/calculate_interaction_zscores5.R index c69d3693..2eeafbae 100644 --- a/workflow/apps/r/calculate_interaction_zscores5.R +++ b/workflow/apps/r/calculate_interaction_zscores5.R @@ -368,15 +368,16 @@ generate_and_save_plots <- function(df, output_dir, file_prefix, variables, plot # Include additional QC plots if requested if (include_qc) { - plots[["Raw_L_vs_K"]] <- generate_plot(df, "L", "K", "scatter", "Raw L vs K before QC") - plots[["Delta_bg_Density"]] <- generate_plot(df, "delta_bg", NULL, "density", "Density plot for Delta Background") - plots[["Delta_bg_Bar"]] <- generate_plot(df, "delta_bg", NULL, "bar", "Bar plot for Delta Background") + plots[["Raw_L_vs_K"]] <- generate_plot(df, "L", "K", "scatter", title = "Raw L vs K before QC") + plots[["Delta_bg_Density"]] <- generate_plot(df, "delta_bg", NULL, "density", title = "Density plot for Delta Background") + plots[["Delta_bg_Bar"]] <- generate_plot(df, "delta_bg", NULL, "bar", title = "Bar plot for Delta Background") } save_plots(file_prefix, plots, output_dir) } + # Ensure all plots are saved and printed to PDF save_plots <- function(file_name, plot_list, output_dir) { # Save to PDF