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

Add coord_cartesian

Browse Source
This commit is contained in:
Bryan Roessler
2024-09-12 03:21:15 -04:00
parent 44da325de4
commit f90cb25f91
1 changed files with 17 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -377,7 +377,7 @@ generate_and_save_plots <- function(output_dir, file_name, plot_configs, grid_la
} }
} }
if (!is.null(config$x_breaks) && !is.null(config$x_labels) && !is.null(config$x_label) && config$plot_type != "box") { if (!is.null(config$x_breaks) && !is.null(config$x_labels) && !is.null(config$x_label)) {
plot <- plot + scale_x_continuous( plot <- plot + scale_x_continuous(
name = config$x_label, name = config$x_label,
breaks = config$x_breaks, breaks = config$x_breaks,
@@ -397,6 +397,11 @@ generate_and_save_plots <- function(output_dir, file_name, plot_configs, grid_la
width = 0.1) + width = 0.1) +
geom_point(aes(y = !!sym(paste0("mean_", config$y_var))), size = 0.6) geom_point(aes(y = !!sym(paste0("mean_", config$y_var))), size = 0.6)
} }
if (!is.null(config$coord_cartesian)) {
plot <- plot + coord_cartesian(ylim = config$coord_cartesian)
}
plot plot
}, },
@@ -429,13 +434,18 @@ generate_and_save_plots <- function(output_dir, file_name, plot_configs, grid_la
"box" = { "box" = {
plot <- plot + geom_boxplot() plot <- plot + geom_boxplot()
if (!is.null(config$x_breaks) && !is.null(config$x_labels) && !is.null(config$x_label) && config$plot_type == "box") { if (!is.null(config$x_breaks) && !is.null(config$x_labels) && !is.null(config$x_label)) {
plot <- plot + scale_x_discrete( plot <- plot + scale_x_discrete(
name = config$x_label, name = config$x_label,
breaks = config$x_breaks, breaks = config$x_breaks,
labels = config$x_labels labels = config$x_labels
) )
}}, }
if (!is.null(config$coord_cartesian)) {
plot <- plot + coord_cartesian(ylim = config$coord_cartesian)
}
plot
},
"density" = plot + geom_density(), "density" = plot + geom_density(),
"bar" = plot + geom_bar() "bar" = plot + geom_bar()
) )
@@ -517,7 +527,8 @@ generate_interaction_plot_configs <- function(df, variables) {
x_label = unique(df$Drug[1]), x_label = unique(df$Drug[1]),
shape = 3, shape = 3,
size = 0.6, size = 0.6,
position = "jitter" position = "jitter",
coord_cartesian = c(0, max(var_info$ylim)) # You can customize this per plot as needed
) )
# Add box plot configuration for this variable # Add box plot configuration for this variable
@@ -532,14 +543,14 @@ generate_interaction_plot_configs <- function(df, variables) {
error_bar = FALSE, # Boxplots typically don't need error bars error_bar = FALSE, # Boxplots typically don't need error bars
x_breaks = unique(df$conc_num_factor), x_breaks = unique(df$conc_num_factor),
x_labels = unique(as.character(df$conc_num)), x_labels = unique(as.character(df$conc_num)),
x_label = unique(df$Drug[1]) x_label = unique(df$Drug[1]),
coord_cartesian = c(0, max(var_info$ylim)) # Customize this as needed
) )
} }
return(configs) return(configs)
} }
# Adjust missing values and calculate ranks # Adjust missing values and calculate ranks
adjust_missing_and_rank <- function(df, variables) { adjust_missing_and_rank <- function(df, variables) {