bryan/hartman-server
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Use sd bars, not se, in plate analysis plots

Browse Source
This commit is contained in:
Bryan Roessler
2024-09-26 03:35:16 -04:00
parent 51aa2589be
commit 376a299066
1 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
qhtcp-workflow/apps/r/calculate_interaction_zscores.R
View File

@@ -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)) { if (!is.null(config$error_bar) && config$error_bar && !is.null(config$y_var)) {
y_mean_col <- paste0("mean_", 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 + plot <- plot +
geom_errorbar( geom_errorbar(
aes( aes(
ymin = !!sym(y_mean_col) - !!sym(y_se_col), ymin = !!sym(y_mean_col) - !!sym(y_sd_col),
ymax = !!sym(y_mean_col) + !!sym(y_se_col) ymax = !!sym(y_mean_col) + !!sym(y_sd_col)
), ),
alpha = 0.3 alpha = 0.3,
linewidth = 0.5
) )
} }