Helper functions for color assignment and legends

Usage

assign_col_d(x, pal = viridis::viridis, ...)

assign_col(x, n = length(x), pal = viridis::viridis, ...)

assign_col_binned(x, breaks, pal = viridis::viridis, ...)

legend_c(breaks, title = NULL, pal = viridis::viridis)

legend_d(fill, labels = names(fill), position = "topright", ...)

Arguments

x: vector to colorize
pal: color function; Default is viridis::viridis()
...: arguments passed to color function
n: integer.
breaks: numeric.
title: character. Legend title
fill: color vector
labels: character.vector. Names of discrete colors. Can be ignored when cols is a named vector.
position: Legend position

Value

Examples

set.seed(1234)

# example for discrete colors
x <- rvmf(5, mu = Line(120, 50), k = 5)
key <- letters[round(runif(5, 1, 26))]
stereoplot(guides = FALSE)
stereo_point(x, col = assign_col_d(key))
legend_d(assign_col_d(key))


# example for continuous colors:
x <- rvmf(100, mu = Line(120, 50), k = 5)
stereoplot(guides = FALSE)
stereo_point(x, col = assign_col(runif(100)))
legend_c(seq(0, 1, .1), title = "test")