ggplot2 : I는 (데이터 + barplot)이 간단한 코드를

Question

y 축 값의 함수로서 색상 barplot :

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

: I는 다음의 표를 이용하여 히트 맵을 생성 한편

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에 대해 최소 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 돌볼 수 있도록하는 것은 꽤 잘

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