From Kurt.Hornik@ci.tuwien.ac.at  Mon Aug  4 12:15:54 1997
From: Kurt.Hornik@ci.tuwien.ac.at (Kurt Hornik)
Date: Mon, 4 Aug 1997 13:15:54 +0200
Subject: R-alpha: `axes' argument for barplot()
Message-ID: <199708041115.NAA21208@aragorn.ci.tuwien.ac.at>

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
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


R-alpha: `axes' argument for barplot()
Kurt Hornik