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

Switch to annotation segment for lm line

Browse Source
This commit is contained in:
Bryan Roessler
2024-10-05 14:56:56 -04:00
parent 180e1ca81a
commit 5a819bfa88
1 changed files with 10 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -779,13 +779,17 @@ generate_scatter_plot <- function(plot, config) {
# Add linear regression line if specified # Add linear regression line if specified
if (!is.null(config$lm_line)) { if (!is.null(config$lm_line)) {
plot <- plot + plot <- plot +
geom_abline( annotate(
intercept = config$lm_line$intercept, "segment",
slope = config$lm_line$slope, x = config$lm_line$x_min,
xend = config$lm_line$x_max,
y = config$lm_line$intercept + config$lm_line$slope * config$lm_line$x_min, # Calculate y for x_min
yend = config$lm_line$intercept + config$lm_line$slope * config$lm_line$x_max, # Calculate y for x_max
color = ifelse(!is.null(config$lm_line$color), config$lm_line$color, "blue"), color = ifelse(!is.null(config$lm_line$color), config$lm_line$color, "blue"),
linewidth = ifelse(!is.null(config$lm_line$linewidth), config$lm_line$linewidth, 1) linewidth = ifelse(!is.null(config$lm_line$linewidth), config$lm_line$linewidth, 1)
) )
} }
# Add SD Bands if specified # Add SD Bands if specified
if (!is.null(config$sd_band)) { if (!is.null(config$sd_band)) {
@@ -1072,7 +1076,9 @@ generate_interaction_plot_configs <- function(df_summary, df_interaction, type)
intercept = lm_intercept_value, intercept = lm_intercept_value,
slope = lm_slope_value, slope = lm_slope_value,
color = "blue", color = "blue",
linewidth = 1 linewidth = 0.8,
x_min = min(as.numeric(group_data$conc_num_factor_factor)),
x_max = max(as.numeric(group_data$conc_num_factor_factor))
) )
) )
delta_plot_configs <- append(delta_plot_configs, list(plot_config)) delta_plot_configs <- append(delta_plot_configs, list(plot_config))