Ternary Tiles

Compute tile values.

Usage

tile_bin(x, y, z, ...)

tile_density(x, y, z, ...)

tile_interpolate(x, y, z, ...)

# S4 method for class 'numeric,numeric,numeric'
tile_bin(x, y, z)

# S4 method for class 'ANY,missing,missing'
tile_bin(x)

# S4 method for class 'numeric,numeric,numeric'
tile_density(x, y, z)

# S4 method for class 'ANY,missing,missing'
tile_density(x)

# S4 method for class 'numeric,numeric,numeric'
tile_interpolate(x, y, z, value, method = "linear", ...)

# S4 method for class 'ANY,missing,missing'
tile_interpolate(x, value, method = "linear", ...)

Arguments

x, y, z

A numeric vector giving the x, y and z ternary coordinates of a set of points. If y and z are missing, an attempt is made to interpret x in a suitable way (see grDevices::xyz.coords()).

...

Further parameters to be passed to internal methods.

value

A numeric vector giving the values to be interpolated.

method

A character string: specifying the method for interpolation (see interp::interp()).

Value

A function that takes three numeric vector as arguments and returns a numeric vector.

See also

ternary_image()

Author

N. Frerebeau

Examples

## Data from Aitchison 1986
## Bin
f <- tile_bin(lava)
ternary_plot(NULL)
ternary_image(f = f, n = 12)


## Custom color palette
pal <- function(x) {
  x <- (x - min(x)) / (max(x) - min(x)) # Rescale to [0,1]
  YlOrBr <- c("#FFFFD4", "#FED98E", "#FE9929", "#D95F0E", "#993404")
  RGB <- grDevices::colorRamp(YlOrBr)(x)
  grDevices::rgb(RGB, maxColorValue = 255)
}

ternary_plot(NULL)
ternary_image(f = f, n = 12, palette = pal)


## Density
f <- tile_density(lava)
ternary_plot(NULL)
ternary_image(f = f, n = 12, palette = pal)


if (requireNamespace("interp", quietly = TRUE)) {
  ## Interpolation
  f <- tile_interpolate(arctic, value = arctic$depth)
  ternary_plot(NULL)
  ternary_image(f = f, n = 24, palette = pal)
  ternary_points(arctic, col = "red", pch = 16)
}