#' Sets par parameters
#'
#' Set more sensible par parameters
#' @param mar Distance to edge
#' @param mgp Distance from label to graph
#' @param tck tick length
#' @param cex_axis Axis text size
#' @param las Rotate axis label
#' @param mfrow plots per page
#' @param ... Additional arguments for par
#' @seealso par
#' @export
#' @importFrom graphics par
setnicepar = function(mar = c(3, 3, 2, 1),
mgp = c(2, 0.4, 0), tck = -.01,
cex_axis = 0.9, las=1, mfrow = c(1, 1), ...) {
par(mar = mar,
mgp = mgp, tck = tck,
cex_axis = cex_axis, las = las, mfrow = mfrow, ...)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.