R-alpha: `axes' argument for barplot()
Kurt Hornik
Kurt.Hornik@ci.tuwien.ac.at
Mon, 4 Aug 1997 13:15:54 +0200
Clearly, barplot should have an `axes' argument. The following trivial
patch does that ... pls apply.
-k
*** src/library/base/funs/barplot.orig Sat Aug 2 15:58:44 1997
--- src/library/base/funs/barplot Sat Aug 2 16:00:22 1997
***************
*** 1,7 ****
"barplot" <-
function (height, names.arg, col=NULL, border=par("fg"),
beside=FALSE, space=0.2, legend.text,
! main=NULL, xlab=NULL, ylab=NULL, xlim, ylim, ...)
{
opar <- par(yaxs="i", xpd=TRUE)
on.exit(par(opar))
--- 1,7 ----
"barplot" <-
function (height, names.arg, col=NULL, border=par("fg"),
beside=FALSE, space=0.2, legend.text,
! main=NULL, xlab=NULL, ylab=NULL, xlim, ylim, axes = TRUE, ...)
{
opar <- par(yaxs="i", xpd=TRUE)
on.exit(par(opar))
*************** function (height, names.arg, col=NULL, b
*** 68,72 ****
xjust=1, yjust=1)
}
title(main=main, xlab=xlab, ylab=ylab, ...)
! axis(2)
}
--- 68,73 ----
xjust=1, yjust=1)
}
title(main=main, xlab=xlab, ylab=ylab, ...)
! if (axes)
! axis(2)
}
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
r-devel mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !) To: r-devel-request@stat.math.ethz.ch
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-