From 376a2990665686fccc17586385769877ec3d7a54 Mon Sep 17 00:00:00 2001 From: Bryan Roessler Date: Thu, 26 Sep 2024 03:35:16 -0400 Subject: [PATCH] Use sd bars, not se, in plate analysis plots --- qhtcp-workflow/apps/r/calculate_interaction_zscores.R | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/qhtcp-workflow/apps/r/calculate_interaction_zscores.R b/qhtcp-workflow/apps/r/calculate_interaction_zscores.R index 8746bc28..c8f39007 100644 --- a/qhtcp-workflow/apps/r/calculate_interaction_zscores.R +++ b/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 ) }