GGPLOT2：barplot顏色作爲y軸值的函數

Question

我有這樣簡單的代碼（數據+ 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) 

別處我使用以下調色板創建的熱圖：

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

被名爲：

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

現在我想用類似的調色板我barplot，那是我想合作lor在每個酒吧是一個高度的函數（從紅色的最小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')