Включение цветового пространства в diverge0? - PullRequest
Новая
       43

Включение цветового пространства в diverge0?

0 голосов
/ 27 марта 2020

Я пытаюсь построить растровый стэк с цветовой схемой от красного до синего с белым в центре. Это мой код: 

plot2<-diverge0(rasterstack, ramp='RdBu')

Но при построении стека цвета очень светлые. Я хотел бы включить код 'colorspace' из: 

darken(col, amount = 0.1, space = "combined")

Как я могу сделать цветовую палитру, полученную из diverge0, темнее?

Ниже приведен код, который я в настоящее время пришел с 

plot2<-diverge0(rasterstack, ramp='RdBu',darker=0.4)

, что приводит к ошибке.

1 Ответ

0 голосов
/ 04 мая 2020

Неясно, откуда взялась функция diverge0(). Если это значение из https://gist.github.com/johnbaums/306e4b7e69c87b1826db, то кажется, что вы можете сделать (заявление об отказе: не проверено): 

diverge0(rasterstack,
  ramp = colorRampPalette(
    darken(brewer.pal(11, "RdBu"), amount = 0.1, space = "combined")
  )
)

Обратите внимание, что вместо того, чтобы сначала пройти RColorBrewer, а затем После настройки результата вы также можете поиграть с параметрами divergingx_hcl(11, "RdBu") или diverging_hcl(11, "Blue-Red 3", rev = TRUE). Например, вы можете заменить код из третьей строки кода выше (darken(...)) на 

divergingx_hcl(11, palette = "RdBu", l2 = 85, cmax1 = 90)

или 

diverging_hcl(11, "Blue-Red 3", rev = TRUE, l2 = 85)

Оба делают яркость центрального серого несколько темнее (l2 = 85), при этом первый также ограничивает максимальную цветность (которая всегда ниже у последнего).

В последнем случае вы также можете зарегистрировать свою собственную палитру под новым именем, например, 

diverging_hcl(11, "Blue-Red 3", l2 = 85, register = "Dark Blue-Red")
diverging_hcl(11, "Dark Blue-Red", rev = TRUE)
## [1] "#5F1415" "#953535" "#BB6060" "#CF8D8E" "#D9B6B6" "#D4D4D4" "#B6BED7"
## [8] "#8C9ECE" "#577AC1" "#1554A4" "#002F70"
...