From 1bd3f9c4b4ffe87ff9db497810435f63f0d5abf0 Mon Sep 17 00:00:00 2001 From: Bryan Roessler Date: Sun, 1 Sep 2024 04:35:02 -0400 Subject: [PATCH] Add exception for delta_bg plot --- workflow/apps/r/calculate_interaction_zscores5.R | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) diff --git a/workflow/apps/r/calculate_interaction_zscores5.R b/workflow/apps/r/calculate_interaction_zscores5.R index 6f8ae57c..fd9d05aa 100644 --- a/workflow/apps/r/calculate_interaction_zscores5.R +++ b/workflow/apps/r/calculate_interaction_zscores5.R @@ -183,15 +183,16 @@ generate_plot <- function(df, x_var, y_var = NULL, plot_type, color_var = "conc_ return(plot) } - generate_and_save_plots <- function(df, output_dir, prefix, variables, include_qc = FALSE) { plots <- list() for (var in variables) { scatter_plot <- - generate_plot(df, x_var = scan, y_var = !!sym(var), plot_type = "scatter", title = paste(prefix, "Scatter Plot for", var)) + generate_plot(df, x_var = scan, y_var = !!sym(var), plot_type = "scatter", + title = paste(prefix, "Scatter Plot for", var)) boxplot <- - generate_plot(df, x_var = as.factor(scan), y_var = !!sym(var), plot_type = "box", title = paste(prefix, "Box Plot for", var)) + generate_plot(df, x_var = as.factor(scan), y_var = !!sym(var), plot_type = "box", + title = paste(prefix, "Box Plot for", var)) plots[[paste0(var, "_scatter")]] <- scatter_plot plots[[paste0(var, "_box")]] <- boxplot @@ -199,11 +200,14 @@ generate_and_save_plots <- function(df, output_dir, prefix, variables, include_q if (include_qc) { plots[["Raw_L_vs_K"]] <- - generate_plot(df, x_var = L, y_var = K, plot_type = "scatter", title = "Raw L vs K before QC") + generate_plot(df, x_var = L, y_var = K, plot_type = "scatter", + title = "Raw L vs K before QC") plots[["Delta_bg_Density"]] <- - generate_plot(df, x_var = delta_bg, plot_type = "density", title = "Density plot for Delta Background by Conc All Data") + generate_plot(df, x_var = delta_bg, plot_type = "density", color_var = "conc_num", + title = "Density plot for Delta Background by Conc All Data") plots[["Delta_bg_Bar"]] <- - generate_plot(df, x_var = delta_bg, plot_type = "bar", title = "Bar plot for Delta Background by Conc All Data") + generate_plot(df, x_var = delta_bg, plot_type = "bar", + title = "Bar plot for Delta Background by Conc All Data") } save_plots(prefix, plots, output_dir)