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

Fix discrete x_var mapping

Browse Source
This commit is contained in:
Bryan Roessler
2024-10-01 18:54:19 -04:00
parent 1548dbf9c1
commit 462d6070bd
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -608,7 +608,8 @@ generate_scatter_plot <- function(plot, config) {
# Customize X-axis if specified
if (!is.null(config$x_breaks) && !is.null(config$x_labels) && !is.null(config$x_label)) {
if (is.factor(df[[config$x_var]]) || is.character(df[[config$x_var]])) {
# Check if x_var is factor or character (for discrete x-axis)
if (is.factor(plot$data[[config$x_var]]) || is.character(plot$data[[config$x_var]])) {
plot <- plot +
scale_x_discrete(
name = config$x_label,
@@ -624,6 +625,7 @@ generate_scatter_plot <- function(plot, config) {
)
}
}
# Set Y-axis limits if specified
if (!is.null(config$ylim_vals)) {
@@ -656,7 +658,8 @@ generate_boxplot <- function(plot, config) {
# Customize X-axis if specified
if (!is.null(config$x_breaks) && !is.null(config$x_labels) && !is.null(config$x_label)) {
if (is.factor(df[[config$x_var]]) || is.character(df[[config$x_var]])) {
# Check if x_var is factor or character (for discrete x-axis)
if (is.factor(plot$data[[config$x_var]]) || is.character(plot$data[[config$x_var]])) {
plot <- plot +
scale_x_discrete(
name = config$x_label,