From 48311fda3ba117cf2d9c0396631d97e61e889742 Mon Sep 17 00:00:00 2001 From: Bryan Roessler Date: Sun, 1 Sep 2024 04:37:02 -0400 Subject: [PATCH] Add y var to stat_summary() --- workflow/apps/r/calculate_interaction_zscores5.R | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/workflow/apps/r/calculate_interaction_zscores5.R b/workflow/apps/r/calculate_interaction_zscores5.R index fd9d05aa..a3c7d66d 100644 --- a/workflow/apps/r/calculate_interaction_zscores5.R +++ b/workflow/apps/r/calculate_interaction_zscores5.R @@ -158,13 +158,17 @@ update_gene_names <- function(df, sgd_gene_list) { generate_plot <- function(df, x_var, y_var = NULL, plot_type, color_var = "conc_num", title, x_label = NULL, y_label = NULL) { # Base ggplot object - plot <- ggplot(df, aes(x = {{x_var}}, color = {{color_var}})) + if (!is.null(y_var)) { + plot <- ggplot(df, aes(x = {{x_var}}, y = {{y_var}}, color = {{color_var}})) + } else { + plot <- ggplot(df, aes(x = {{x_var}}, color = {{color_var}})) + } # Handle different plot types if (plot_type == "scatter") { plot <- plot + geom_point(shape = 3, size = 0.2, position = "jitter") + - stat_summary(fun.data = mean_sdl, geom = "errorbar") + - stat_summary(fun = mean, geom = "point", size = 0.6) + stat_summary(fun.data = mean_sdl, geom = "errorbar", aes(y = {{y_var}})) + + stat_summary(fun = mean, geom = "point", size = 0.6, aes(y = {{y_var}})) } else if (plot_type == "box") { plot <- plot + geom_boxplot() } else if (plot_type == "density") { @@ -183,6 +187,7 @@ generate_plot <- function(df, x_var, y_var = NULL, plot_type, color_var = "conc_ return(plot) } + generate_and_save_plots <- function(df, output_dir, prefix, variables, include_qc = FALSE) { plots <- list()