Use updated guide term

qhtcp-workflow/apps/r/calculate_interaction_zscores.R

@@ -396,12 +396,12 @@ generate_and_save_plots <- function(out_dir, file_name, plot_configs, grid_layou
       plot_base  # default case if no type matches
     )
 
-    # Apply additional settings if provided
+    # Apply additional settings
     if (!is.null(config$legend_position)) {
       plot <- plot + theme(legend.position = config$legend_position)
     }
 
-    # Add title and labels if provided
+    # Add title and labels
     if (!is.null(config$title)) {
       plot <- plot + ggtitle(config$title)
     }
@@ -414,7 +414,7 @@ generate_and_save_plots <- function(out_dir, file_name, plot_configs, grid_layou
 
     # Apply scale_color_discrete(guide = FALSE) when color_var is NULL
     if (is.null(config$color_var)) {
-      plot <- plot + scale_color_discrete(guide = FALSE)
+      plot <- plot + scale_color_discrete(guide = "none")
     }
 
     # Add interactive tooltips for plotly