odwrócona rozbieżna paleta kolorów

Question

Dość często używam rozbieżnej palety kolorów odwzorowanej na parametr, który ma interesujący punkt zwrotny gdzieś w pobliżu środka.

Niestety, dostępne rozbieżne palety - np. te z C. Brewera - wszystkie wydają się mieć nasycone kolory na dwóch skrajnościach, a nie na środku, często definiowane jako białe lub jasnoszare. Oto przykład dla zilustrowania

Ciągły parametr oznaczonej tekstowych przechodzi optymalnej wartości, przy której szczyt krzywej związanej osiąga maksimum.

Na jasnym białym lub szarym tle (typowym dla ggplot2) najciekawsza część moich danych staje się prawie niewidoczna; Chciałbym, żeby "pop" więcej, podczas gdy wartości po obu stronach stopniowo oddalają się od centrum, z innym odcieniem. Czy są jakieś źródła dobrych rozbieżnych palet kolorów, które mają silniejsze nasycenie w środku i blakną po obu stronach?

Oto przykładowy kod do ilustracji, wybierając czarny jako neutralny środkowy punkt (wolałbym coś mniej dramatycznego, ale trudno jest go dobrze wtopić w obie strony).

require(RColorBrewer) 
grid.newpage() 
grid.raster(brewer.pal(7,"PRGn"), 0.25, 0.5, 0.4, 1) 

custom <- c(brewer.pal(3,"BuPu"), "black", rev(brewer.pal(3,"BuGn"))) 
grid.raster(custom, 0.75, 0.5, 0.4, 1) 

Edit: do wyjaśnienia, jestem zaznajomiony z colorRampPalette i scale_colour_gradientn, szukam porady w

1- wybierając dobre kolory dla tego celu;

2- wyznaczającą skalę kolorów palety mapowania ręcznie spreparowane do zmiennej, podobnego do tego, co robi scale_colour_gradient2 z parametrem mid (centralna kolor może nie być dokładnie w środku zakresu parametrów)

Answer 1

You może cieszyć się zabawą z choose_palette(), względnie niedawnym dodatkiem do doskonałego pakietu kolorystycznego.

Funkcje zawarte w tym pakiecie zapewniają pełną i w dużym stopniu prostopadłą kontrolę nad kolorystyką barwy, nasycenia i luminancji. choose_palette() to wygodny sposób na poznanie ogromnej przestrzeni otwierających się możliwości.

Oto kod, który uruchomi selektor palety, a następnie zrzut ekranu narzędzia GUI. (Zauważ, że aby środek zakresu był ciemniejszy niż koniec, będziesz chciał zamienić domyślne wartości luminancji palety rozbieżnej, tutaj oznaczone jako "L1" i "L2".)

library(colorspace) 
library(grid) 

custom <- choose_palette() 

A oto przykład tego, co zrobiło mi dwa w ciągu około minuty z gry z nim

custom <- diverge_hcl(20, h=c(-225,277), c=80, l=c(80,25)) 
grid.newpage() 
grid.raster(custom, 0.25, 0.5, 0.4, 1) 

Zarówno pakiet i myślenia za nim są ładnie udokumentowane w winiecie pakietu (vignette("hcl-colors")) oraz w artykule towarzyszącym "Escaping RGBland: Selecting colors for statistical graphics" (Warning: pdf) opublikowane w czasopiśmie Computational Statistics and Data Analysis.

Answer 2

Jednym ze sposobów, w jaki zrobiłem to w przeszłości, aby odwrócić rozbieżne rampy (które jest blisko tego, co zrobiłeś, ale nie dokładnie), ale potem użyj kanału alfa, aby zdematyzować końce ramp.

library(ggplot2) 
pal <- brewer.pal(7,"PRGn") 
custom <- c(rev(pal[1:3]),rev(pal[5:7])) 
alpha <- c(seq(3),rev(seq(3)))/3 
x <- 1:6 
y <- rep(1) 
MyDF <- data.frame(custom,alpha,x,y) 
MyPlot <- ggplot(data = MyDF, aes(x = x, y = y, fill=custom, alpha=alpha)) + geom_bar(stat = "identity", color="white") + 
      scale_fill_identity() + scale_alpha_continuous(range = c(0.6, 1)) 
MyPlot 

Jedyny artykuł Jestem świadomy, że omawia odwrócenie kolorów rampy jak to Okrągła dataimage, wykres dla wysokiej rozdzielczości danych okrągłych-przestrzenna(Morphet & Symanzik, 2010) (brak wersji online, przepraszam). Zasadniczo zmieniają one wartość i nasycenie, aby połączyć końcówki ramp - chociaż były trochę skąpe w szczegółach. Oto obraz jednego z ich wykresów.

Mieli te rampy w obecnie nieaktualnych pakietu CircSpatial, więc być może uda się zerwać jak zrobili rampy stamtąd.