ggplot2: barplot con colori in funzione del valore dell'asse y

Question

Ho questo semplice codice (dati + barplot):

dat <- c('Jan','Feb','Mar', 'Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec') 
val <- c(-2.5, 3, 2.5, -3.3, -1, 0.2, 6, 4.3, 5.5, 2, -1.9, -2.3) 
df <- data.frame(dat, val) 
bar <- ggplot(data = df, aes(x = factor(dat, levels = month.abb), y = val)) + 
    geom_bar(stat = 'identity') 
print(bar) 

Altrove ho creato un heatmap utilizzando il seguente palette:

# Palette 
LtoM <-colorRampPalette(c('red', 'yellow')) 
Mid <- "snow3" 
MtoH <-colorRampPalette(c('lightgreen', 'darkgreen')) 

che viene chiamato da:

scale_fill_gradient2(low = LtoM(100), mid = Mid, high = MtoH(100)) 

Ora vorrei utilizzare una tavolozza di colori simile per il mio barplot, cioè vorrei che la co Per ogni barra si intende una funzione dell'altezza (un grado da rosso per mimimo y a verde per massimo y).

Come posso farlo, per favore?

Answer 1

Sei praticamente lì con il tuo codice attuale. Basta aggiungere la funzione scale_fill_gradient.

bar <- ggplot(data = df, aes(x = factor(dat, levels = month.abb), y = val, 
       fill=val)) + 
     geom_bar(stat = 'identity') + 
     scale_fill_gradient2(low=LtoM(100), mid='snow3', 
     high=MtoH(100), space='Lab') 

Tuttavia, permettendo scale_fill_gradient2 a prendersi cura del gradiente-ing funziona piuttosto bene

bar <- ggplot(data = df, aes(x = factor(dat, levels = month.abb), y = val, 
       fill=val)) + 
     geom_bar(stat = 'identity') + 
     scale_fill_gradient2(low='red', mid='snow3', high='darkgreen', space='Lab')