R/arrowaxis.R

In TRSbook: Functions and Datasets to Accompany the Book "The R Software: Fundamentals of Programming and Statistical Analysis"

arrowaxis <- function(x=TRUE,y=TRUE) {
  extr <- par("usr")
  if (isTRUE(x)) arrows(extr[1],extr[3],extr[2]+0.05*diff(extr[1:2]),extr[3],
                        xpd=TRUE,length=0.1)
  if (isTRUE(y)) arrows(extr[1],extr[3],extr[1],extr[4]+0.05*diff(extr[3:4]),
                        xpd=TRUE,length=0.1)
}