R/addCartesianPlane.R

In lbraglia/yapomif: Yet another package of misc functions

#' Add cartesian system to a plot
#'
#' 
#' Add a cartesian system to a plot using \code{\link{abline}}.
#'
#' 
#' @param at.x x centre of the system
#' @param at.y y centre of the system
#' @param col grid color
#' @param lty line type
#' @param lwd line width
#' @return The function adds a cartesian plane to a plot using
#' \code{\link{abline}}. 
#' @export
addCartesianSystem <- function(at.y = 0, at.x = 0,
                               col = "black", 
                               lty = "solid", 
                               lwd = par("lwd")) {
  abline(v = at.x, col = col, lty = lty, lwd = lwd)
  abline(h = at.y, col = col, lty = lty, lwd = lwd)
}