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

Break out aes mappings

Browse Source
This commit is contained in:
Bryan Roessler
2024-09-25 22:45:39 -04:00
parent a45b977b0d
commit 6256127279
1 changed files with 31 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -381,19 +381,27 @@ generate_and_save_plots <- function(out_dir, filename, plot_configs, grid_layout
config <- plot_configs[[i]] config <- plot_configs[[i]]
df <- config$df df <- config$df
aes_mapping <- if (config$plot_type == "bar" || config$plot_type == "density") { # Create the base plot
if (is.null(config$color_var)) { aes_mapping <- if (config$plot_type == "bar") {
aes(x = .data[[config$x_var]]) if (!is.null(config$color_var)) {
aes(x = .data[[config$x_var]], fill = .data[[config$color_var]], color = .data[[config$color_var]])
} else { } else {
aes(x = .data[[config$x_var]], color = as.factor(.data[[config$color_var]])) aes(x = .data[[config$x_var]])
}
} else if (config$plot_type == "density") {
if (!is.null(config$color_var)) {
aes(x = .data[[config$x_var]], color = .data[[config$color_var]])
} else {
aes(x = .data[[config$x_var]])
} }
} else if (is.null(config$color_var)) {
aes(x = .data[[config$x_var]], y = .data[[config$y_var]])
} else { } else {
aes(x = .data[[config$x_var]], y = .data[[config$y_var]], color = as.factor(.data[[config$color_var]])) if (!is.null(config$color_var)) {
aes(x = .data[[config$x_var]], y = .data[[config$y_var]], color = .data[[config$color_var]])
} else {
aes(x = .data[[config$x_var]], y = .data[[config$y_var]])
}
} }
# Start building the plot with aes_mapping
plot_base <- ggplot(df, aes_mapping) plot_base <- ggplot(df, aes_mapping)
# Use appropriate helper function based on plot type # Use appropriate helper function based on plot type
@@ -437,12 +445,14 @@ generate_and_save_plots <- function(out_dir, filename, plot_configs, grid_layout
} }
} }
# Convert to plotly object # Convert to plotly object and suppress warnings here
if (length(tooltip_vars) > 0) { plotly_plot <- suppressWarnings({
plotly_plot <- ggplotly(plot, tooltip = tooltip_vars) if (length(tooltip_vars) > 0) {
} else { ggplotly(plot, tooltip = tooltip_vars)
plotly_plot <- ggplotly(plot, tooltip = "none") } else {
} ggplotly(plot, tooltip = "none")
}
})
# Adjust legend position if specified # Adjust legend position if specified
if (!is.null(config$legend_position) && config$legend_position == "bottom") { if (!is.null(config$legend_position) && config$legend_position == "bottom") {
@@ -454,22 +464,24 @@ generate_and_save_plots <- function(out_dir, filename, plot_configs, grid_layout
plotly_plots[[i]] <- plotly_plot plotly_plots[[i]] <- plotly_plot
} }
# Save static PDF plots # Save static PDF plot(s)
pdf(file.path(out_dir, paste0(filename, ".pdf")), width = 14, height = 9) pdf(file.path(out_dir, paste0(filename, ".pdf")), width = 14, height = 9)
lapply(static_plots, print) lapply(static_plots, print)
dev.off() dev.off()
# Combine and save interactive HTML plots # Combine and save interactive HTML plot(s)
combined_plot <- subplot( combined_plot <- subplot(
plotly_plots, plotly_plots,
nrows = if (!is.null(grid_layout) && !is.null(grid_layout$nrow)) { nrows = if (!is.null(grid_layout) && !is.null(grid_layout$nrow)) {
grid_layout$nrow grid_layout$nrow
} else { } else {
# Calculate nrow based on the length of plotly_plots (default 1 row if only one plot) # Calculate nrow based on the length of plotly_plots
ceiling(length(plotly_plots) / ifelse(!is.null(grid_layout) && !is.null(grid_layout$ncol), grid_layout$ncol, 1)) ceiling(length(plotly_plots) / ifelse(!is.null(grid_layout) && !is.null(grid_layout$ncol), grid_layout$ncol, 1))
}, },
margin = 0.05 margin = 0.05
) )
# Save combined html plot(s)
saveWidget(combined_plot, file = file.path(out_dir, paste0(filename, ".html")), selfcontained = TRUE) saveWidget(combined_plot, file = file.path(out_dir, paste0(filename, ".html")), selfcontained = TRUE)
} }
@@ -1241,9 +1253,9 @@ main <- function() {
plot_configs = plate_analysis_no_zeros_plot_configs), plot_configs = plate_analysis_no_zeros_plot_configs),
list(out_dir = out_dir_qc, filename = "plate_analysis_no_zeros_boxplots", list(out_dir = out_dir_qc, filename = "plate_analysis_no_zeros_boxplots",
plot_configs = plate_analysis_no_zeros_boxplot_configs), plot_configs = plate_analysis_no_zeros_boxplot_configs),
list(out_dir = out_dir_qc, name = "L_vs_K_for_strains_2SD_outside_mean_K", list(out_dir = out_dir_qc, filename = "L_vs_K_for_strains_2SD_outside_mean_K",
plot_configs = l_outside_2sd_k_plot_configs), plot_configs = l_outside_2sd_k_plot_configs),
list(out_dir = out_dir_qc, name = "delta_background_vs_K_for_strains_2sd_outside_mean_K", list(out_dir = out_dir_qc, filename = "delta_background_vs_K_for_strains_2sd_outside_mean_K",
plot_configs = delta_bg_outside_2sd_k_plot_configs) plot_configs = delta_bg_outside_2sd_k_plot_configs)
) )