Calculates the x-axis limits when adding (long) labels to a plot
xlimlabel(x, xlabels, pos = 4, offset = 0.5, ...)
Minimum and maximum x-axis limits for adding horizontal text
numeric vector of horizontal coordinates
character vector, specifying text to be written
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 of the label from the coordinate in fractions of a character width
Additional par arguments
Aimee Teo Broman
See graphics::text()
for details on pos
and offset
.
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)
Run the code above in your browser using DataLab