getDistinctColors: Get distinct colors

In ataudt/aneufinder: Analysis of Copy Number Variation in Single-Cell-Sequencing Data

Get distinct colors

Description

Get a set of distinct colors selected from colors.

Usage

getDistinctColors(n, start.color = "blue4", exclude.colors = c("white",
  "black", "gray", "grey", "\\<yellow\\>", "yellow1", "lemonchiffon"),
  exclude.brightness.above = 1, exclude.rgb.above = 210)

Arguments

n	Number of colors to select. If n is a character vector, length(n) will be taken as the number of colors and the colors will be named by n.
start.color	Color to start the selection process from.
exclude.colors	Character vector with colors that should not be used.
exclude.brightness.above	Exclude colors where the 'brightness' value in HSV space is above. This is useful to obtain a matt palette.
exclude.rgb.above	Exclude colors where all RGB values are above. This is useful to exclude whitish colors.

Details

The function computes the euclidian distance between all colors and iteratively selects those that have the furthest closes distance to the set of already selected colors.

Value

A character vector with colors.

Author(s)

Aaron Taudt

Examples

cols <- AneuFinder:::getDistinctColors(5)
pie(rep(1,5), labels=cols, col=cols)

ataudt/aneufinder documentation built on April 18, 2023, 4:20 a.m.