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

Simplify y-limits

Browse Source
This commit is contained in:
Bryan Roessler
2024-09-25 02:33:52 -04:00
parent 57ff7698a3
commit c42e13d09f
1 changed files with 7 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -664,18 +664,14 @@ generate_interaction_plot_configs <- function(df, variables) {
configs <- list() configs <- list()
limits_map <- list( # Set the y-limits for each variable
L = c(-65, 65),
K = c(-65, 65),
r = c(-0.65, 0.65),
AUC = c(-6500, 6500)
)
# Filtering out NAs and outlying values
df_filtered <- df %>% df_filtered <- df %>%
filter(across(names(limits_map), filter(
~ !is.na(.x) & !is.na(L) & between(L, -65, 65),
between(.x, limits_map[[.names]][1], limits_map[[.names]][2]))) !is.na(K) & between(K, -65, 65),
!is.na(r) & between(r, -0.65, 0.65),
!is.na(AUC) & between(AUC, -6500, 6500)
)
# Define annotation label functions # Define annotation label functions
generate_annotation_labels <- function(df, var, annotation_name) { generate_annotation_labels <- function(df, var, annotation_name) {