Как создать ряд наиболее характерных цветов в R?

Question

Как создать ряд наиболее характерных цветов в R?

Я строю категориальный набор данных и хочу использовать отличительные цвета для представления разных категорий. Учитывая номер n, как я могу получить n количество самых характерных цветов в R? Благодарю.

198

r colors palette color-palette colorbrewer

Источник

user489564 07 мар '13 в 21:59

11 ответов

Другие вопросы по тегам r colors palette color-palette colorbrewer

user1295737 15 окт '15 в 09:31 2015-10-15 09:31 · Answer 1 · 2015-10-15 09:31

Я соединил все качественные палитры из RColorBrewer пакет. Предполагается, что качественные палитры обеспечивают X наиболее характерных цветов. Конечно, смешивание их объединяет в одну палитру также похожие цвета, но это лучшее, что я могу получить (74 цвета).

library(RColorBrewer)
n <- 60
qual_col_pals = brewer.pal.info[brewer.pal.info$category == 'qual',]
col_vector = unlist(mapply(brewer.pal, qual_col_pals$maxcolors, rownames(qual_col_pals)))
pie(rep(1,n), col=sample(col_vector, n))

Другое решение: возьмите все R цветов с графических устройств и сэмплируйте их. Я убрал оттенки серого, так как они слишком похожи. Это дает 433 цвета

color = grDevices::colors()[grep('gr(a|e)y', grDevices::colors(), invert = T)]

pie(rep(1,n), col=sample(color, n))

с 200 цветами n = 200:

pie(rep(1,n), col=sample(color, n))

user203420 07 мар '13 в 22:06 2013-03-07 22:06 · Answer 2 · 2013-03-07 22:06

Вот несколько вариантов:

Посмотрите на palette функция:

palette(rainbow(6))     # six color rainbow
(palette(gray(seq(0,.9,len = 25)))) #grey scale

И colorRampPalette функция:

##Move from blue to red in four colours
colorRampPalette(c("blue", "red"))( 4)

Посмотрите на colorBrewer пакет (и веб-сайт). Если вы хотите расходящиеся цвета, то выберите расходящиеся на сайте. Например,
```
library(colorBrewer)
brewer.pal(7, "BrBG")
```
Веб-сайт " Я хочу оттенка" дает много хороших палитр. Опять же, просто выберите нужную палитру. Например, вы можете получить цвета rgb с сайта и создать собственную палитру:
```
palette(c(rgb(170,93,152, maxColorValue=255),
    rgb(103,143,57, maxColorValue=255),
    rgb(196,95,46, maxColorValue=255),
    rgb(79,134,165, maxColorValue=255),
    rgb(205,71,103, maxColorValue=255),
    rgb(203,77,202, maxColorValue=255),
    rgb(115,113,206, maxColorValue=255)))
```

user2776559 20 фев '16 в 21:32 2016-02-20 21:32 · Answer 3 · 2016-02-20 21:32

Вы также можете попробовать randomcoloR пакет:

library(randomcoloR)
n <- 20
palette <- distinctColorPalette(n)

Вы можете видеть, что при визуализации на круговой диаграмме выбирается набор сильно различающихся цветов (как подсказывают другие ответы здесь):

pie(rep(1, n), col=palette)

Показано на круговой диаграмме с 50 цветами:

n <- 50
palette <- distinctColorPalette(n)
pie(rep(1, n), col=palette)

user2953338 16 апр '17 в 14:19 2017-04-16 14:19 · Answer 4 · 2017-04-16 14:19

Существует также довольно "новый" способ получения оптимальной отличительной цветовой палитры, в том числе в отношении дальтонизма и возможного черно-белого преобразования с использованием цветовой палитры Viridis.

Чтобы получить палитру, просто установите пакет и используйте функцию viridis_pal()

install.packages("viridis")
library(viridis)
viridis_pal(option = "D")(n)  # n = number of colors seeked

С помощью опций "A","B","C" и "D" можно выбрать одну из следующих палитр:

Для большего количества примеров посетите виньетка пакета. Некоторые из прекрасных примеров в этом:

Существует также отличный доклад, объясняющий сложность хороших палитр на YouTube:

Лучшая цветовая карта по умолчанию для Matplotlib | SciPy 2015 | Натаниэль Смит и Стефан ван дер Уолт

user559784 07 мар '13 в 22:05 2013-03-07 22:05 · Answer 5 · 2013-03-07 22:05

Ты можешь использовать colorRampPalette с базы или RColorBrewer пакет:

С colorRampPaletteВы можете указать цвета следующим образом:

colorRampPalette(c("red", "green"))(5)
# [1] "#FF0000" "#BF3F00" "#7F7F00" "#3FBF00" "#00FF00"

Вы также можете предоставить шестнадцатеричные коды:

colorRampPalette(c("#3794bf", "#FFFFFF", "#df8640"))(5)
# [1] "#3794BF" "#9BC9DF" "#FFFFFF" "#EFC29F" "#DF8640"
# Note that the mid color is the mid value...

С RColorBrewer Вы можете использовать цвета из уже существующих палитр:

require(RColorBrewer)
brewer.pal(9, "Set1")
# [1] "#E41A1C" "#377EB8" "#4DAF4A" "#984EA3" "#FF7F00" "#FFFF33" "#A65628" "#F781BF"
# [9] "#999999"

смотреть на RColorBrewer пакет для других доступных палитр. Надеюсь это поможет.

user2678817 02 ноя '16 в 16:06 2016-11-02 16:06 · Answer 6 · 2016-11-02 16:06

Я бы рекомендовал использовать внешний источник для больших цветовых палитр.

http://tools.medialab.sciences-po.fr/iwanthue/

имеет сервис для создания палитры любого размера в соответствии с различными параметрами и

https://graphicdesign.stackexchange.com/questions/3682/where-can-i-find-a-large-palette-set-of-contrasting-colors-for-coloring-many-d/3815

обсуждает общую проблему с точки зрения графических дизайнеров и дает множество примеров полезных палитр.

Чтобы составить палитру из значений RGB, вам просто нужно скопировать значения в векторе, например:

colors37 = c("#466791","#60bf37","#953ada","#4fbe6c","#ce49d3","#a7b43d","#5a51dc","#d49f36","#552095","#507f2d","#db37aa","#84b67c","#a06fda","#df462a","#5b83db","#c76c2d","#4f49a3","#82702d","#dd6bbb","#334c22","#d83979","#55baad","#dc4555","#62aad3","#8c3025","#417d61","#862977","#bba672","#403367","#da8a6d","#a79cd4","#71482c","#c689d0","#6b2940","#d593a7","#895c8b","#bd5975")

user2602477 16 июл '20 в 19:33 2020-07-16 19:33 · Answer 7 · 2020-07-16 19:33

Для этого можно использовать пакет Polychrome. Просто требуется количество цветов и несколькоseedcolors. Например:

# install.packages("Polychrome")
library(Polychrome)

# create your own color palette based on `seedcolors`
P36 = createPalette(36,  c("#ff0000", "#00ff00", "#0000ff"))
swatch(P36)

Вы можете узнать больше об этом пакете на https://www.jstatsoft.org/article/view/v090c01.

user6074925 26 ноя '18 в 02:15 2018-11-26 02:15 · Answer 8 · 2018-11-26 02:15

Я нашел сайт, предлагающий список из 20 отличительных цветов: https://sashat.me/2017/01/11/list-of-20-simple-distinct-colors/

col_vector<-c('#e6194b', '#3cb44b', '#ffe119', '#4363d8', '#f58231', '#911eb4', '#46f0f0', '#f032e6', '#bcf60c', '#fabebe', '#008080', '#e6beff', '#9a6324', '#fffac8', '#800000', '#aaffc3', '#808000', '#ffd8b1', '#000075', '#808080', '#ffffff', '#000000')

Вы можете попробовать!

9

Источник

user6074925 26 ноя '18 в 02:15

user11087878 13 апр '20 в 10:54 2020-04-13 10:54 · Answer 9 · 2020-04-13 10:54

В моем понимании поиск отличительных цветов связан с эффективным поиском из единичного куба, где 3 измерения куба - это три вектора по красной, зеленой и синей осям. Это можно упростить для поиска в цилиндре (аналогия HSV), где вы фиксируете насыщенность (S) и значение (V) и находите случайные значения оттенка. Это работает во многих случаях, и посмотрите это здесь:

https://martin.ankerl.com/2009/12/09/how-to-create-random-colors-programmatically/

В R

get_distinct_hues <- function(ncolor,s=0.5,v=0.95,seed=40) {
  golden_ratio_conjugate <- 0.618033988749895
  set.seed(seed)
  h <- runif(1)
  H <- vector("numeric",ncolor)
  for(i in seq_len(ncolor)) {
    h <- (h + golden_ratio_conjugate) %% 1
    H[i] <- h
  }
  hsv(H,s=s,v=v)
}

Альтернативный способ - использовать пакет R "единообразно" https://cran.r-project.org/web/packages/uniformly/index.html

и эта простая функция может генерировать отличительные цвета:

get_random_distinct_colors <- function(ncolor,seed = 100) {
  require(uniformly)
  set.seed(seed)
  rgb_mat <- runif_in_cube(n=ncolor,d=3,O=rep(0.5,3),r=0.5)
  rgb(r=rgb_mat[,1],g=rgb_mat[,2],b=rgb_mat[,3])
}

Можно придумать немного более сложную функцию с помощью поиска по сетке:

get_random_grid_colors <- function(ncolor,seed = 100) {
  require(uniformly)
  set.seed(seed)
  ngrid <- ceiling(ncolor^(1/3))
  x <- seq(0,1,length=ngrid+1)[1:ngrid]
  dx <- (x[2] - x[1])/2
  x <- x + dx
  origins <- expand.grid(x,x,x)
  nbox <- nrow(origins) 
  RGB <- vector("numeric",nbox)
  for(i in seq_len(nbox)) {
    rgb <- runif_in_cube(n=1,d=3,O=as.numeric(origins[i,]),r=dx)
    RGB[i] <- rgb(rgb[1,1],rgb[1,2],rgb[1,3])
  }
  index <- sample(seq(1,nbox),ncolor)
  RGB[index]
}

проверьте эти функции:

ncolor <- 20
barplot(rep(1,ncolor),col=get_distinct_hues(ncolor))          # approach 1
barplot(rep(1,ncolor),col=get_random_distinct_colors(ncolor)) # approach 2
barplot(rep(1,ncolor),col=get_random_grid_colors(ncolor))     # approach 3

Однако обратите внимание, что определить отдельную палитру цветов, воспринимаемых человеком, непросто. Какой из вышеперечисленных подходов генерирует разнообразный набор цветов, еще предстоит проверить.

user7889964 03 июл '19 в 19:08 2019-07-03 19:08 · Answer 10 · 2019-07-03 19:08

Вы можете создать такой набор цветов:

myCol = c("pink1", "violet", "mediumpurple1", "slateblue1", "purple", "purple3",
          "turquoise2", "skyblue", "steelblue", "blue2", "navyblue",
          "orange", "tomato", "coral2", "palevioletred", "violetred", "red2",
          "springgreen2", "yellowgreen", "palegreen4",
          "wheat2", "tan", "tan2", "tan3", "brown",
          "grey70", "grey50", "grey30")

Эти цвета максимально различимы. Для этих похожих цветов они образуют градиент, чтобы вы могли легко отличить их.

user11256934 28 апр '23 в 13:13 2023-04-28 13:13 · Answer 11 · 2023-04-28 13:13

Я вручную нашел 8 наиболее различимых цветов следующим образом:

color = c("синий","красный","зеленый3","ярко-розовый3","желтый","бордовый1","светло-лососевый3","черный")

но если вам нужно больше, просто посмотрите здесь и составьте свой собственный список:http://www.stat.columbia.edu/~tzheng/files/Rcolor.pdf