auto exponentiation scatterplot axes

uclahs-cds · Jun 18, 2024 · b56b938 · b56b938
1 parent aec2d05
commit b56b938
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/R/plot-pgs.R b/R/plot-pgs.R
@@ -476,6 +476,8 @@ create.pgs.with.continuous.phenotype.plot <- function(
                     scatter.ylimits <- NULL;
                 }
 
+            xaxis.formatting <- auto.axis(pgs.data[ , pgs.column], log.scaled = FALSE, num.labels = 5, include.origin = FALSE);
+            yaxis.formatting <- auto.axis(pgs.data[ , phenotype], log.scaled = FALSE, num.labels = 5, include.origin = FALSE);
             pgs.scatterplots[[paste0(pgs.column,'_',phenotype)]] <- BoutrosLab.plotting.general::create.scatterplot(
                 formula = as.formula(paste0(phenotype, ' ~ ', pgs.column)),
                 data = pgs.data,
@@ -485,6 +487,10 @@ create.pgs.with.continuous.phenotype.plot <- function(
                 ylab.label = phenotype,
                 main = '',
                 main.cex = 0,
+                yat = yaxis.formatting$at,
+                yaxis.lab = yaxis.formatting$axis.lab,
+                xat = xaxis.formatting$at,
+                xaxis.lab = xaxis.formatting$axis.lab,
                 # Correlation Legend
                 legend = correlation.legend,
                 ylimits = scatter.ylimits,