SpaDES (version 1.3.1)

setColors<-: Set colours for plotting Raster* objects.

Description

setColors works as a replacement method or a normal function call.

Usage

setColors(object, ..., n) <- value
# S4 method for RasterLayer,numeric,character
setColors(object, ..., n) <- value
# S4 method for RasterLayer,missing,character
setColors(object, ..., n) <- value
# S4 method for RasterStack,numeric,list
setColors(object, ..., n) <- value
# S4 method for Raster,missing,list
setColors(object, ..., n) <- value
setColors(object, value, n)
# S4 method for RasterLayer,character,numeric
setColors(object, value, n)
# S4 method for RasterLayer,character,missing
setColors(object, value)

Arguments

object

A Raster* object.

...

Additional arguments to colorRampPalette.

n

An optional vector of values specifiying the number of levels from which to interpolate the color palette.

value

Named list of hex color codes (e.g., from RColorBrewer::brewer.pal), corresponding to the names of RasterLayers in x.

Value

Returns a Raster with the colortable slot set to values.

See Also

brewer.pal, colorRampPalette.

Examples

# NOT RUN {
  library(raster)
  library(igraph) # need pipe for one example below

  ras <- raster(matrix(c(0,0,1,2), ncol=2, nrow=2))

  # Use replacement method
  setColors(ras, n=3) <- c("red", "blue", "green")
  if (interactive()) {
    clearPlot()
    Plot(ras)
  }

  # Use function method
  ras <- setColors(ras, n=3, c("red", "blue", "yellow"))
  if (interactive()) {
    clearPlot()
    Plot(ras)
  }

  # Using the wrong number of colors, e.g., here 2 provided,
  # for a raster with 3 values... causes interpolation, which may be surprising
  ras <- setColors(ras, c("red", "blue"))
  if (interactive()) {
    clearPlot()
    Plot(ras)
  }

  # Real number rasters - interpolation is used
  ras <- raster(matrix(runif(9), ncol=3, nrow=3)) %>%
    setColors(c("red", "yellow")) # interpolates when real numbers, gives warning
  if (interactive()) {
    clearPlot()
    Plot(ras)
  }

  # Factor rasters, can be contiguous (numerically) or not, in this case not:
  ras <- raster(matrix(sample(c(1,3,6), size=9, replace=TRUE), ncol=3, nrow=3))
  levels(ras) <- data.frame(ID=c(1,3,6), Names=c("red", "purple", "yellow"))
  ras <- setColors(ras, n=3, c("red", "purple", "yellow"))
  if (interactive()) {
    clearPlot()
    Plot(ras)
  }

  # if a factor rastere, and not enough labels are provided, then a warning
  #   will be given, and colors will be interpolated
  #   The level called purple is not purple, but interpolated betwen red and yellow
  ras <- setColors(ras, c("red", "yellow"))
  if (interactive()) {
    clearPlot()
    Plot(ras)
  }
# }