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

Add titles to plots

Browse Source
This commit is contained in:
Bryan Roessler
2024-09-04 02:10:00 -04:00
parent 0cb47077f8
commit 84c2732730
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -368,15 +368,16 @@ generate_and_save_plots <- function(df, output_dir, file_prefix, variables, plot
# Include additional QC plots if requested # Include additional QC plots if requested
if (include_qc) { if (include_qc) {
plots[["Raw_L_vs_K"]] <- generate_plot(df, "L", "K", "scatter", "Raw L vs K before QC") plots[["Raw_L_vs_K"]] <- generate_plot(df, "L", "K", "scatter", title = "Raw L vs K before QC")
plots[["Delta_bg_Density"]] <- generate_plot(df, "delta_bg", NULL, "density", "Density plot for Delta Background") plots[["Delta_bg_Density"]] <- generate_plot(df, "delta_bg", NULL, "density", title = "Density plot for Delta Background")
plots[["Delta_bg_Bar"]] <- generate_plot(df, "delta_bg", NULL, "bar", "Bar plot for Delta Background") plots[["Delta_bg_Bar"]] <- generate_plot(df, "delta_bg", NULL, "bar", title = "Bar plot for Delta Background")
} }
save_plots(file_prefix, plots, output_dir) save_plots(file_prefix, plots, output_dir)
} }
# Ensure all plots are saved and printed to PDF # Ensure all plots are saved and printed to PDF
save_plots <- function(file_name, plot_list, output_dir) { save_plots <- function(file_name, plot_list, output_dir) {
# Save to PDF # Save to PDF