xlimlabel {broman}

Calulate horizontal limit in user coordinates for adding labels

Description

Calculates the x-axis limits when adding (long) labels to a plot

Usage

xlimlabel(x, xlabels, pos = 4, offset = 0.5, ...)

Arguments

x

numeric vector of horizontal coordinates

xlabels

character vector, specifying text to be written

pos

position specifier for text; values of 1, 2, 3, and 4, respectively, indicate positions below, to the left of, above, and to the right of the coordinates

offset

offset of the label from the coordinate in fractions of a character width

...

Additional par arguments

Details

See graphics::text() for details on pos and offset.

Value

Minimum and maximum x-axis limits for adding horizontal text

Author(s)

Aimee Teo Broman

See Also

graphics::text()

Examples

x <- runif(15, -1, 1)*10
xlabs <- sapply(sample(1:20, 15, replace=TRUE),
                function(a) paste(LETTERS[1:a], collapse=""))
par(mfrow=c(2,1), las=1)
## Labels to the left ##
xlims <- xlimlabel(x, xlabs, pos=2)
plot(x, 1:length(x), xlim=xlims, ylab="Index")
text(x, 1:length(x), xlabs, pos=2)
## Labels to the right ##
xlims <- xlimlabel(x, xlabs, pos=4, cex=0.7)
plot(x, 1:length(x), xlim=xlims, ylab="Index")
text(x, 1:length(x), xlabs, pos=4, cex=0.7)