colorify: creation and modification of color/gradient palettes

Description

The main colorify function can be used to generate or take colors that can then be modified with the same function call. See the vignette for extended examples.

Palette names are stripped of whitespace and lowered for name matching. All RColorBrewer and Viridis palettes are included. All grDevices plotting functions are provided as palettes, simply use: colors = "rainbow", "heat", "terrain", "topo" or "cm". Viridis is recommended for (continuous) color-blind friendly paletets. Okabe-Ito is recommended for discrete distinct colors (up to 8, generate if more colors are required).

Addition of values (.v) happens before multiplication with factors (.f). Intuitively, all given values are expected to be within range (0, 100), values will be scaled between (0, 1), as hsv() and rgb2hsv(maxColorValue = 1) require.

Note that parameter call order within the function call matters, see examples and vignette.

A wrapper function around colorify to turn it into a palette function compatible with discrete_scale and scale_fill_gradientn.

Usage

colorify(
  n = NULL,
  colors = character(0),
  colours = colors,
  colors_lock = NULL,
  colors_names = character(0),
  colors_map = numeric(0),
  nn = n,
  hf = 1,
  sf = 1,
  lf = 1,
  rf = 1,
  gf = 1,
  bf = 1,
  hv = 0,
  sv = 0,
  lv = 0,
  rv = 0L,
  gv = 0L,
  bv = 0L,
  hmin = 0L,
  smin = 0L,
  lmin = 0L,
  rmin = 0L,
  gmin = 0L,
  bmin = 0L,
  hmax = 100L,
  smax = 100L,
  lmax = 100L,
  rmax = 100L,
  gmax = 100L,
  bmax = 100L,
  alpha = 1,
  seed = 42L,
  order = 1,
  plot = FALSE,
  export = FALSE,
  verbose = TRUE,
  ...
)

colorify_pal(
  colors = character(0),
  colors_lock = NULL,
  hf = 1,
  sf = 1,
  lf = 1,
  rf = 1,
  gf = 1,
  bf = 1,
  hv = 0,
  sv = 0,
  lv = 0,
  rv = 0L,
  gv = 0L,
  bv = 0L,
  hmin = 0L,
  smin = 0L,
  lmin = 0L,
  rmin = 0L,
  gmin = 0L,
  bmin = 0L,
  hmax = 100L,
  smax = 100L,
  lmax = 100L,
  rmax = 100L,
  gmax = 100L,
  bmax = 100L,
  alpha = 1,
  seed = 42L,
  order = 1,
  verbose = TRUE,
  ...
)

Arguments

Details

Either generate theoretically maximally different colors, select an available R grDevices palette and/or modify the colors of the given gradient/palette

Value

colorify: vector of color hexcodes

colorify_pal: callable function(n) for generating colors

See Also

vignette("Introduction to coloRify")

Browse vignettes with vignette("Introduction to coloRify")

Examples

## if parameters identical, change seed to change generation
colorify(10, plot = TRUE, seed = 1)
colorify(10, plot = TRUE, seed = 42)
## set colors, generate additional up to n
colorify(colors = c("red", "white", "blue"), n = 5, plot = TRUE)
## create gradients
colorify(colors = c("orange", "red", "white", "blue", "orange"), nn = 100, plot = TRUE)

## viridis gradient, lighten and saturate, darken
colorify(colors = "viridis", n = 100, plot = TRUE)
colorify(colors = "viridis", n = 10, plot = TRUE, lf = 1.5, sv = 10)
colorify(colors = "viridis", n = 10, plot = TRUE, lf = .9)
# TODO add examples for nn to vignette
colorify(colors = colorify(nn = Inf)(10), plot = TRUE) # basically random palette function
colorify(colors = colorify(nn = Inf, colors = c('red', 'white'))(10), plot = TRUE)
colorify(colors = colorify(nn = Inf, colors = c('red', 'white', 'blue'))(10), plot = TRUE)
colorify(colors = colorify(colors = 'viridis', nn = Inf)(50), plot = TRUE)

## palette selected by name in colors[1], 
## can add colors to selected palette, 
## if n < length, remove colors , if greater generate 
colorify(colors = c("Okabe-Ito", "red", "blue", "yellow"), plot = TRUE, n = 10)

## no adjustments to locked indices 
colorify(colors = "Okabe-Ito", colors_lock = c(FALSE,FALSE,TRUE,TRUE), plot = TRUE, rv = -300)
colorify(colors = "Okabe-Ito", colors_lock = c(FALSE,FALSE,TRUE,TRUE), plot = TRUE, rv = 300)

## colors_lock and inversing
colors <- colorify(5, plot = TRUE)
colorify(colors_lock = c(TRUE,TRUE), colors=colors, plot = TRUE, lf = .5)
colorify(colors_lock = ! c(TRUE,FALSE,TRUE), colors=colors, plot = TRUE, lf = .5)
colorify(colors_lock = c(3,4), colors=colors, plot = TRUE, lf = .5)
colorify(colors_lock = -c(3,4), colors=colors, plot = TRUE, lf = .5)

## rainbow
colorify(colors=grDevices::rainbow(100, s = .5), plot = TRUE)
colorify(colors="rainbow", n = 100, sf = .5, plot = TRUE)
colorify(colors=grDevices::rainbow(100, v = .5), plot = TRUE)
colorify(colors="rainbow", n = 100, lf = .5, plot = TRUE)
colorify(colors=grDevices::rainbow(100, start = .25, end = .75), plot = TRUE)
colorify(colors=grDevices::rainbow(100)[25:75], plot = TRUE)

## order
colorify(10, plot = TRUE, order = 1)  # default
colorify(10, plot = TRUE, order = 0)  # random
colorify(10, plot = TRUE, order = -1) # reverse
colorify(10, plot = TRUE, order = -3) # negative shift
colorify(10, plot = TRUE, order = 12) # > n

## call order
# Note that parameter call order within the function call matters, 
# see examples and vignette: 
# rv = 20 then rf = 1.2 can be different then 
# rf = 1.2 then rv = 20

# TODO add example to vignette
colors_map <- c(-5, 0, 10)
colors <- c("red", "white", "blue")
if (requireNamespace('circlize')) 
color_bar <- 
  circlize::colorRamp2(colors_map, colors)(seq(-5, 10, length.out = 100))
color_bar <- colorify(
  colors = colors, 
  colors_map = colors_map, 
  space = "Lab")(seq(-5, 10, length.out = 100)) # circlize::colorRamp2 style
graphics::image(1:100, 1, as.matrix(1:100), 
  col = color_bar, 
  axes = FALSE, 
  main = "Color Mapping using circlize::colorRamp2")
## named base R/hexcode
colorifunction <- colorify_pal(colors = c('red', '#FFFFFF', 'blue'))
colorify(colors = colorifunction(10), plot = TRUE)
## empty for random
colorifunction <- colorify_pal()
colorify(colors = colorifunction(10), plot = TRUE)
## named colors and palette(s)
colorifunction <- colorify_pal(colors = c('green', 'viridis', 'rainbow', 'yellow'), plot = TRUE)
colorify(colors = colorifunction(100), plot = TRUE)

Colortistry plot from Colorified palettes

Description

Colortistry plot from Colorified palettes

Usage

colortistry(colors_list, border_color = NA)

Arguments

Value

plot Colortistry plot of combined Colorified palettes

See Also

Browse vignettes with vignette("Introduction to coloRify")

Examples

colors_list <- list()
for (i in seq(100)) {
  colors_list[[i]] <- colorify(
  n = 100, 
  colors = "rainbow", 
  colors_lock = rep(c(TRUE,FALSE,FALSE,FALSE,FALSE), 20), 
  hf = 25/i, 
  lf = i/20)
  if (i %% 3) colors_list[[i]] <- colorify(
  n = 100, 
  colors = "rainbow", 
  colors_lock = rep(c(FALSE,FALSE,TRUE,FALSE,FALSE), 20), 
  hf = 30/i, 
  lf = i/20)
  if (i %% 4) colors_list[[i]] <- colorify(
  n = 100, 
  colors = "rainbow",
  colors_lock = rep(c(FALSE,FALSE,FALSE,TRUE,FALSE), 20), 
  hf = 50/i, 
  lf = i/40)
  if (i %% 5) colors_list[[i]] <- colorify(
  n = 100, 
  colors = "rainbow", 
  colors_lock = rep(c(FALSE,TRUE,FALSE,FALSE,FALSE), 20), 
  hf = 50/i, 
  sf = i/50)
}
colortistry(colors_list)
colortistry(colors_list, border_color = 'black')

Display R grDevices palettes

Description

Use colorify to select and modify the palettes. Note that discrete palettes with maximum n colors will be repeated in plotting.

Any numeric i_palettes over maximum amount of palettes are not displayed.

Contains all Viridis palettes, including Turbo.

Usage

display_palettes(n = 10, i_palettes = 1:1000, border = FALSE)

Arguments

Value

named vector with source and name of palettes, 'hcl' for grDevices::hcl.pals() and 'pal' for grDevices::palette.pals()

See Also

Browse vignettes with vignette("Introduction to coloRify")

Examples

display_palettes()
display_palettes(i_palettes = 50:75)

display_palettes(i_palettes = 'RColorBrewer')
display_palettes(i_palettes = 'Viridis')
display_palettes(i_palettes = c("rainbow", "viridis"))

display_palettes(i_palettes = c(1,5,10,20,40,100,119))
display_palettes(n = 100, i_palettes = 1:10)
display_palettes(n = 10, i_palettes = 1:10, border = TRUE)

Hex code colors to rgba format

Description

Hex code colors to rgba format

Usage

hex2rgba(hex, alpha = NULL)

Arguments

Value

colors in rgba format

Examples

colors <- colorify(5)
hex2rgba(colors)
hex2rgba(colors, alpha = .5)
colors <- gsub('FF$', 75, colors)
hex2rgba(colors)
hex2rgba(colors, alpha = .5)

hsv to rgb color space

Description

Expects hsv color values to be in range (0-100])

Usage

hsv2rgb(h, s, v, maxColorValue = 100)

Arguments

Value

unnamed dataframe with rgb colors

Examples

colors <- colorify(5)
rgb <- grDevices::col2rgb(colors)
hsv <- grDevices::rgb2hsv(rgb, maxColorValue = 255)
rgb2 <- hsv2rgb(hsv['h',], hsv['s',], hsv['v',], maxColorValue = 255)

Shift colors order

Description

Shift colors order

Usage

order_by_shift(shift, colors, n)

Arguments

Value

ordered colors vector

coloRify scale color bindings for ggplot2

Description

for rest and default coloRify parameters see colorify

Usage

scale_color_colorify(
  ...,
  aesthetics = "color",
  discrete = FALSE,
  nn = Inf,
  n = 2,
  colors = character(0),
  colors_lock = NULL,
  hf = 1,
  sf = 1,
  lf = 1,
  rf = 1,
  gf = 1,
  bf = 1,
  hv = 0,
  sv = 0,
  lv = 0,
  rv = 0,
  gv = 0,
  bv = 0,
  hmin = 0,
  smin = 0,
  lmin = 0,
  rmin = 0,
  gmin = 0,
  bmin = 0,
  hmax = 100,
  smax = 100,
  lmax = 100,
  rmax = 100,
  gmax = 100,
  bmax = 100,
  alpha = 1,
  seed = 42,
  order = 1,
  verbose = TRUE
)

scale_colour_colorify(
  ...,
  aesthetics = "color",
  discrete = FALSE,
  nn = Inf,
  n = 2,
  colors = character(0),
  colors_lock = NULL,
  hf = 1,
  sf = 1,
  lf = 1,
  rf = 1,
  gf = 1,
  bf = 1,
  hv = 0,
  sv = 0,
  lv = 0,
  rv = 0,
  gv = 0,
  bv = 0,
  hmin = 0,
  smin = 0,
  lmin = 0,
  rmin = 0,
  gmin = 0,
  bmin = 0,
  hmax = 100,
  smax = 100,
  lmax = 100,
  rmax = 100,
  gmax = 100,
  bmax = 100,
  alpha = 1,
  seed = 42,
  order = 1,
  verbose = TRUE
)

Arguments

Value

sets colors in ggplot2 plotted object, see examples

See Also

vignette("Introduction to coloRify")

Examples

## viridis ggplot2 examples Colorified 

## non-discrete
if (requireNamespace("ggplot2", quietly = TRUE)) {
  dsub <- subset(ggplot2::diamonds, x > 5 & x < 6 & y > 5 & y < 6)
  dsub$diff <- with(dsub, sqrt(abs(x - y)) * sign(x - y))

  d <- ggplot2::ggplot(dsub, ggplot2::aes(x, y, colour = diff)) + ggplot2::geom_point()
    d + scale_color_colorify(n = 4, colors = 'viridis') + ggplot2::theme_bw()


## discrete

  p <- ggplot2::ggplot(mtcars, ggplot2::aes(wt, mpg))
  p + ggplot2::geom_point(size = 4, ggplot2::aes(colour = factor(cyl))) +
    ggplot2::theme_bw() + scale_color_colorify(discrete = TRUE, colors = c('red', 'blue', 'yellow'))
}

coloRify scale fill bindings for ggplot2

Description

for rest and default coloRify parameters see colorify

Usage

scale_fill_colorify(
  ...,
  aesthetics = "fill",
  discrete = FALSE,
  nn = Inf,
  n = 2,
  colors = character(0),
  colors_lock = NULL,
  hf = 1,
  sf = 1,
  lf = 1,
  rf = 1,
  gf = 1,
  bf = 1,
  hv = 0,
  sv = 0,
  lv = 0,
  rv = 0,
  gv = 0,
  bv = 0,
  hmin = 0,
  smin = 0,
  lmin = 0,
  rmin = 0,
  gmin = 0,
  bmin = 0,
  hmax = 100,
  smax = 100,
  lmax = 100,
  rmax = 100,
  gmax = 100,
  bmax = 100,
  alpha = 1,
  seed = 42,
  order = 1,
  verbose = TRUE
)

Arguments

Value

sets colors in ggplot2 plotted object, see examples

See Also

Browse vignettes with vignette("Introduction to coloRify")

Examples

## viridis ggplot2 examples Colorified

## non-discrete
dat <- data.frame(x = rnorm(10000), y = rnorm(10000))

if (requireNamespace("ggplot2", quietly = TRUE)) {
  ggplot2::ggplot(dat, ggplot2::aes(x = x, y = y)) +
    ggplot2::geom_hex() + ggplot2::coord_fixed() +
    scale_fill_colorify(colors = 'viridis', n = 4) + ggplot2::theme_bw()

## discrete
  df <- data.frame(category = c("A", "B", "C", "D"), value = c(10, 23, 15, 8))


  ggplot2::ggplot(df, ggplot2::aes(x = category, y = value, fill = category)) +
    ggplot2::geom_bar(stat = "identity") +
    scale_fill_colorify(discrete = TRUE, colors = 'viridis')
}