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

Add exception for delta_bg plot

Browse Source
This commit is contained in:
Bryan Roessler
2024-09-01 04:13:14 -04:00
parent 62e7cf2b60
commit 77327c3986
1 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
workflow/apps/r/calculate_interaction_zscores5.R
View File

@@ -157,8 +157,10 @@ 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) { generate_plot <- function(df, x_var, y_var = NULL, plot_type, color_var = "conc_num", title, x_label = NULL, y_label = NULL) {
plot <- ggplot(df, aes(x = {{x_var}}, y = {{y_var}}, color = {{color_var}})) # Base ggplot object
plot <- ggplot(df, aes(x = {{x_var}}, color = {{color_var}}))
# Handle different plot types
if (plot_type == "scatter") { if (plot_type == "scatter") {
plot <- plot + geom_point(shape = 3, size = 0.2, position = "jitter") + plot <- plot + geom_point(shape = 3, size = 0.2, position = "jitter") +
stat_summary(fun.data = mean_sdl, geom = "errorbar") + stat_summary(fun.data = mean_sdl, geom = "errorbar") +
@@ -166,19 +168,22 @@ generate_plot <- function(df, x_var, y_var = NULL, plot_type, color_var = "conc_
} else if (plot_type == "box") { } else if (plot_type == "box") {
plot <- plot + geom_boxplot() plot <- plot + geom_boxplot()
} else if (plot_type == "density") { } else if (plot_type == "density") {
plot <- plot + geom_density() plot <- plot + geom_density() # Density plot automatically maps density to y
} else if (plot_type == "bar") { } else if (plot_type == "bar") {
plot <- plot + geom_bar(stat = "identity") plot <- plot + geom_bar(stat = "identity")
} }
# Add titles and labels
plot <- plot + ggtitle(title) + theme_publication() plot <- plot + ggtitle(title) + theme_publication()
# Add optional labels if provided
if (!is.null(x_label)) plot <- plot + xlab(x_label) if (!is.null(x_label)) plot <- plot + xlab(x_label)
if (!is.null(y_label)) plot <- plot + ylab(y_label) if (!is.null(y_label)) plot <- plot + ylab(y_label)
return(plot) return(plot)
} }
generate_and_save_plots <- function(df, output_dir, prefix, variables, include_qc = FALSE) { generate_and_save_plots <- function(df, output_dir, prefix, variables, include_qc = FALSE) {
plots <- list() plots <- list()