Draw additional text outside of plot margins

[stefaneng]

library(BoutrosLab.plotting.general)
set.seed(13);

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

bpg.scatter <- create.scatterplot(
    formula = y ~ x,
    data = simple.data,
    add.text = TRUE,
    xaxis.tck = c(1, 0),
    text.x = c(-1.5, 1.5),
    text.y = 3.2,
    text.labels = c('margin text 1', 'margin text 2'),
    top.padding = 2
    );

# Text clipped
print(bpg.scatter);

Margin text is clipped to the panel

# Allow text to be written outside of the panel
bpg.scatter$par.settings$clip <- list(panel = FALSE);
print(bpg.scatter);