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:35:02 -04:00
parent 77327c3986
commit 1bd3f9c4b4
1 changed files with 10 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -183,15 +183,16 @@ generate_plot <- function(df, x_var, y_var = NULL, plot_type, color_var = "conc_
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()
for (var in variables) { for (var in variables) {
scatter_plot <- scatter_plot <-
generate_plot(df, x_var = scan, y_var = !!sym(var), plot_type = "scatter", title = paste(prefix, "Scatter Plot for", var)) generate_plot(df, x_var = scan, y_var = !!sym(var), plot_type = "scatter",
title = paste(prefix, "Scatter Plot for", var))
boxplot <- boxplot <-
generate_plot(df, x_var = as.factor(scan), y_var = !!sym(var), plot_type = "box", title = paste(prefix, "Box Plot for", var)) generate_plot(df, x_var = as.factor(scan), y_var = !!sym(var), plot_type = "box",
title = paste(prefix, "Box Plot for", var))
plots[[paste0(var, "_scatter")]] <- scatter_plot plots[[paste0(var, "_scatter")]] <- scatter_plot
plots[[paste0(var, "_box")]] <- boxplot plots[[paste0(var, "_box")]] <- boxplot
@@ -199,11 +200,14 @@ generate_and_save_plots <- function(df, output_dir, prefix, variables, include_q
if (include_qc) { if (include_qc) {
plots[["Raw_L_vs_K"]] <- plots[["Raw_L_vs_K"]] <-
generate_plot(df, x_var = L, y_var = K, plot_type = "scatter", title = "Raw L vs K before QC") generate_plot(df, x_var = L, y_var = K, plot_type = "scatter",
title = "Raw L vs K before QC")
plots[["Delta_bg_Density"]] <- plots[["Delta_bg_Density"]] <-
generate_plot(df, x_var = delta_bg, plot_type = "density", title = "Density plot for Delta Background by Conc All Data") generate_plot(df, x_var = delta_bg, plot_type = "density", color_var = "conc_num",
title = "Density plot for Delta Background by Conc All Data")
plots[["Delta_bg_Bar"]] <- plots[["Delta_bg_Bar"]] <-
generate_plot(df, x_var = delta_bg, plot_type = "bar", title = "Bar plot for Delta Background by Conc All Data") generate_plot(df, x_var = delta_bg, plot_type = "bar",
title = "Bar plot for Delta Background by Conc All Data")
} }
save_plots(prefix, plots, output_dir) save_plots(prefix, plots, output_dir)