Move y-axis labels and y label to right side

[stefaneng]

Support for y-axis labels and y label is not supported directly with BPG but is possible by manipulating the trellis object after creation. Caution: create.multipanelplot will reset any padding for an individual plot. If you need more control then use gridExtra::grid.arrange.

suppressPackageStartupMessages(library(BoutrosLab.plotting.general));

data <- data.frame(
    x = rnorm(100),
    y = rnorm(100)
    );

plot.right  <- create.scatterplot(
    y ~ x,
    data = data,
    ylab.label = 'Right',
    yaxis.tck = c(0, 1),
    xaxis.tck = c(1, 0)
    )

# Set the axis to the right side
right.axis <- function(side, labels='default', ticks='default', ...) {
    default <- lattice.getOption('default.args')$axis
    if(side %in% c('right','bottom')) {
        default(side=side, labels='yes', ticks='yes', ...);
    } else {
        default(side=side, labels='no', ticks='yes', ...);
        }
    }

plot.right$axis <- right.axis;
# Swap the ylab from left (ylab) to right (ylab.right)
# This keeps the default the same from BPG
plot.right$ylab.right <- plot.right$ylab;
plot.right$ylab.right$rot <- -90;
plot.right$ylab <- NULL;

# Add padding between axis and right y-label
# NOTE: create.multipanelplot will reset any padding for an individual plot
# If you need more control then use gridExtra::grid.arrange
plot.right$par.settings$layout.widths$axis.key.padding <- 4

print(plot.right);

^{Created on 2023-05-17 with reprex v2.0.2}