ggplot2: I (veri + barplot) bu basit kod

Question

y-ekseni değerinin bir fonksiyonu olarak renk barplot:

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

: Aşağıdaki palet kullanan bir ısı haritası oluşturuldu Diğer yandan

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) 

tarafından çağrılan

:

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

Şimdi ben co istiyorum, my barplot için benzer bir renk paleti kullanmak istiyorum her çubuğun içindeki lor, yüksekliğin bir fonksiyonu (maksimum y için yeşilden en az y'ye kadar olan bazı dereceler).

Bunu nasıl yapabilirim, lütfen?

Answer 1

Temel olarak geçerli kodunuz var. Sadece scale_fill_gradient işlevini ekleyin.

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') 

Ancak scale_fill_gradient2 gradyan-ing bakım sağlayan oldukça iyi

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')