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

Use more precalculated values in plots

Browse Source
This commit is contained in:
Bryan Roessler
2024-09-12 00:59:43 -04:00
parent 2d3a0b5add
commit d010f52e85
1 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -368,8 +368,14 @@ generate_and_save_plots <- function(output_dir, file_name, plot_configs, grid_la
} }
if (!is.null(config$add_smooth) && config$add_smooth) { if (!is.null(config$add_smooth) && config$add_smooth) {
if (!is.null(config$lm_line)) {
# Use precomputed linear model values if available
plot <- plot + geom_abline(intercept = config$lm_line$intercept, slope = config$lm_line$slope)
} else {
# Fallback to dynamically calculating the smooth line
plot <- plot + geom_smooth(method = "lm", se = FALSE) plot <- plot + geom_smooth(method = "lm", se = FALSE)
} }
}
plot <- plot + plot <- plot +
geom_errorbar(aes( geom_errorbar(aes(
@@ -405,7 +411,7 @@ generate_and_save_plots <- function(output_dir, file_name, plot_configs, grid_la
}, },
"correlation" = plot + geom_point(shape = config$shape %||% 3, color = "gray70") + "correlation" = plot + geom_point(shape = config$shape %||% 3, color = "gray70") +
geom_smooth(method = "lm", color = "tomato3") + geom_abline(intercept = config$lm_line$intercept, slope = config$lm_line$slope, color = "tomato3") +
annotate("text", x = 0, y = 0, label = config$correlation_text), annotate("text", x = 0, y = 0, label = config$correlation_text),
"box" = plot + geom_boxplot(), "box" = plot + geom_boxplot(),