Use sd bars, not se, in plate analysis plots

qhtcp-workflow/apps/r/calculate_interaction_zscores.R

@@ -578,18 +578,19 @@ generate_scatter_plot <- function(plot, config) {
     }
   }
   
-  # Add Error Bars if specified
+  # Add error bars if specified
   if (!is.null(config$error_bar) && config$error_bar && !is.null(config$y_var)) {
     y_mean_col <- paste0("mean_", config$y_var)
-    y_se_col <- paste0("se_", config$y_var)
+    y_sd_col <- paste0("sd_", config$y_var)
     
     plot <- plot +
       geom_errorbar(
         aes(
-          ymin = !!sym(y_mean_col) - !!sym(y_se_col),
-          ymax = !!sym(y_mean_col) + !!sym(y_se_col)
+          ymin = !!sym(y_mean_col) - !!sym(y_sd_col),
+          ymax = !!sym(y_mean_col) + !!sym(y_sd_col)
         ),
-        alpha = 0.3
+        alpha = 0.3,
+        linewidth = 0.5
       )
   }