isopleuros (version 1.4.0)

ternary_tile: Ternary Tiles

Description

Compute tile values.

Usage

tile_bin(x, y, z, ...)
tile_density(x, y, z, ...)
tile_interpolate(x, y, z, ...)
# S4 method for numeric,numeric,numeric
tile_bin(x, y, z)
# S4 method for ANY,missing,missing
tile_bin(x)
# S4 method for numeric,numeric,numeric
tile_density(x, y, z)
# S4 method for ANY,missing,missing
tile_density(x)
# S4 method for numeric,numeric,numeric
tile_interpolate(x, y, z, value, method = "linear", ...)
# S4 method for ANY,missing,missing
tile_interpolate(x, value, method = "linear", ...)

Value

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

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()).

Author

N. Frerebeau

See Also

ternary_image()

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)
}