palette di colori divergenti invertita

Question

Molto spesso utilizzo una tavolozza di colori divergenti mappata su un parametro che ha un punto di svolta interessante da qualche parte vicino al centro.

Sfortunatamente, le tavolozze divergenti disponibili - ad es. quelli di C. Brewer - tutti sembrano avere colori saturi ai due estremi piuttosto che al centro, spesso definiti come bianco o grigio chiaro. Ecco un esempio illustrativo

Il parametro continuo indicato dalle etichette di testo passa attraverso un valore ottimale dove il picco della curva associato raggiunge un massimo.

Su uno sfondo bianco o grigio chiaro (tipico di ggplot2), la parte più interessante dei miei dati diventa quasi invisibile; Mi piacerebbe che "pop" di più, mentre i valori per entrambi i lati svaniscono gradualmente dal centro, con una tinta diversa. Ci sono fonti di buone tavolozze di colori divergenti che hanno una saturazione più forte nel mezzo e si sbiadiscono su entrambi i lati?

Ecco un codice di esempio per l'illustrazione, scegliendo il nero come un punto medio neutro (preferirei qualcosa di meno drammatico, ma è difficile farlo fondere bene con entrambi i lati).

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: Per chiarire, ho familiarità con colorRampPalette e scale_colour_gradientn, cerco consiglio nel

1- scegliere buoni colori per questo scopo;

2- definire una scala di colori mappatura della tavolozza artigianale a una variabile, simile a quello che scale_colour_gradient2 fa con il parametro mid (il colore centrale può non essere al centro esatto del campo di parametri)

Answer 1

È potrebbe piacerti giocare con choose_palette(), un'aggiunta relativamente recente all'eccellente pacchetto colorspace.

Le funzioni in tale pacchetto offrono un controllo completo e in gran parte ortogonale sulle caratteristiche di tonalità, crominanza e luminanza del proprio spazio colore. choose_palette() ti offre un modo conveniente per esplorare l'enorme spazio di possibilità che si apre.

Ecco il codice che avvierà il selettore di palette, seguito da uno screenshot dello strumento GUI. (Si noti che, per rendere il centro dell'intervallo più scuro delle estremità, si vorrà scambiare i valori di luminanza di default della tavolozza divergente, qui indicati come "L1" e "L2".)

library(colorspace) 
library(grid) 

custom <- choose_palette() 

Ed ecco un esempio di ciò che mi ha due ottenuto nel giro di circa un minuto di gioco intorno con esso

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) 

Sia il pacchetto e il pensiero dietro di esso sono ben documentati nel pacchetto vignetta (vignette("hcl-colors")) e in un articolo complementare "Escaping RGBland: Selecting colors for statistical graphics" (Warning: pdf) pubblicato nella rivista Computational Statistics and Data Analysis.

Answer 2

Un modo in cui l'ho fatto in passato per invertire le rampe divergenti (che è vicino a quello che hai fatto, ma non esattamente) ma poi usare il canale alfa per ridimensionare le estremità delle rampe.

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 

L'unico articolo sono consapevole che discute capovolto rampe di colori come questo è Il DataImage circolare, un grafico per alta risoluzione dati circolari-spaziali(Morphet & Symanzik, 2010) (nessuna versione on-line, mi dispiace). Fondamentalmente alterano il valore e la saturazione per far coincidere le estremità delle rampe - sebbene fossero un po 'avari nei dettagli. Ecco un'immagine di uno dei loro grafici.

Avevano queste rampe nel pacchetto ormai deprecato CircSpatial, in modo da essere in grado di abbattere come hanno fatto le rampe da lì.