#' 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.