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)