ggplot2:

Question

मैं इस सरल कोड (डेटा + barplot) है y- अक्ष मूल्य के एक समारोह के रूप में रंगों के साथ 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 के लिए एक समान रंग पैलेट उपयोग करना चाहते हैं, कि मैं सह चाहते हैं ऊंचाई के एक समारोह होने के लिए प्रत्येक बार में लॉर (अधिकतम वाई के लिए लाल से कुछ ग्रेड अधिकतम वाई के लिए हरा)।

मैं यह कैसे कर सकता हूं, कृपया?

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 ढाल-आईएनजी की देखभाल करने के लिए अनुमति बहुत अच्छी तरह से

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