R/imageScale.R

Defines functions imageScale

Documented in imageScale

# This function creates a color scale for use with the image() function. Input
# parameters should be consistent with those used in the corresponding image
# plot. The 'horiz' argument defines whether the scale is horizonal(=TRUE) or
# vertical(=FALSE).

imageScale <- function(z, zlim, col = heat.colors(12), breaks, horiz = TRUE, ...) {
    if (!missing(breaks)) {
        if (length(breaks) != (length(col) + 1)) {
            stop("must have one more break than colour")
        }
    }
    if (missing(breaks) & !missing(zlim)) {
        breaks <- seq(zlim[1], zlim[2], length.out = (length(col) + 1))
    }
    if (missing(breaks) & missing(zlim)) {
        zlim <- range(z, na.rm = TRUE)
        zlim[2] <- zlim[2] + c(zlim[2] - zlim[1]) * (0.001)  #adds a bit to the range in both directions
        zlim[1] <- zlim[1] - c(zlim[2] - zlim[1]) * (0.001)
        breaks <- seq(zlim[1], zlim[2], length.out = (length(col) + 1))
    }
    poly <- vector(mode = "list", length(col))
    for (i in seq(poly)) {
        poly[[i]] <- c(breaks[i], breaks[i + 1], breaks[i + 1], breaks[i])
    }
    xaxt <- ifelse(horiz, "s", "n")
    yaxt <- ifelse(horiz, "n", "s")
    if (horiz) {
        ylim <- c(0, 1)
        xlim <- range(breaks)
    }
    if (!horiz) {
        ylim <- range(breaks)
        xlim <- c(0, 1)
    }
    plot(1, 1, t = "n", ylim = ylim, xlim = xlim, xaxt = xaxt, yaxt = yaxt, xaxs = "i", 
        yaxs = "i", ...)
    for (i in seq(poly)) {
        if (horiz) {
            polygon(poly[[i]], c(0, 0, 1, 1), col = col[i], border = NA)
        }
        if (!horiz) {
            polygon(c(0, 0, 1, 1), poly[[i]], col = col[i], border = NA)
        }
    }
} 

Try the CoverageView package in your browser

Any scripts or data that you put into this service are public.

CoverageView documentation built on Nov. 8, 2020, 7:52 p.m.