R/plothelpers.r

In theislab/destiny: Creates diffusion maps

emptyplot <- function(xlim = c(0, 1), ylim = xlim, asp = 1, frame.plot = FALSE, col = NULL, ...) { # nolint: object_name_linter.
	plot(0, type = 'n', xlab = '', ylab = '', asp = asp, axes = FALSE,
	     frame.plot = frame.plot, xlim = xlim, ylim = ylim, xaxs = 'i',
	     yaxs = 'i', ...)
	if (!is.null(col))
		rect(xlim[1], ylim[1], xlim[2], ylim[2], col = col)
}

#' @importFrom grDevices palette
#' @importFrom scales colour_ramp rescale
continuous_colors <- function(vals, pal = palette(), limits = NULL, levels = 100) {
	if (is.function(pal))
		pal <- pal(levels)

	if (is.null(limits))
		limits <- range(vals, na.rm = TRUE)

	ramp <- colour_ramp(pal, alpha = TRUE)

	ramp(rescale(vals, from = limits))
}