Add rectangles to avg zscore plot

qhtcp-workflow/apps/r/calculate_interaction_zscores.R

@@ -800,10 +800,19 @@ generate_rank_plot_configs <- function(df_filtered, variables, is_lm = FALSE) {
                 x_var <- paste0("Avg_Zscore_", variable)
                 y_var <- paste0("Z_lm_", variable)
                 title_suffix <- paste("Avg Zscore vs lm", variable)
+                
+                # Add rectangles configuration for Avg_Zscore_vs_lm
+                rectangles <- list(
+                    list(
+                        xmin = -2, xmax = 2, ymin = -2, ymax = 2,
+                        fill = NA, color = "grey20", alpha = 0.1
+                    )
+                )
             } else {
                 x_var <- paste0(variable, "_Rank")
                 y_var <- paste0(variable, "_Rank_lm")
                 title_suffix <- paste("Rank Avg Zscore vs lm", variable)
+                rectangles <- NULL
             }
             
             # Fit linear model
@@ -839,7 +848,8 @@ generate_rank_plot_configs <- function(df_filtered, variables, is_lm = FALSE) {
                 legend_position = "right",
                 color_var = "Overlap",
                 x_label = x_var,
-                y_label = y_var
+                y_label = y_var,
+                rectangles = rectangles  # Add rectangles configuration
             )
         }
     }