ggplot2：私は（データ+ barplot）この単純なコードを有する

Question

y軸値の関数として色でbarplot：

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

：私は次のパレットを使用してヒートマップを作成して他の場所

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) 

呼び出され

：

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

は今、私はそれは私が協力したいです、私のbarplotについて同様のカラーパレットを使用したいです各バーには、高さの関数である（最大yの場合、最小から最小の赤からいくつかの等級）。

どうすればいいですか？

Answer 1

基本的には、現在のコードがあります。 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') 

しかし、scale_fill_gradient2グラデーション-INGの世話をすることができますすることはかなりよくlilsterを返信するための

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