आर: ggplot बेहतर ढाल रंग

Question

मैं आनुपातिक स्टैक्ड बार प्लॉट प्लॉट करने के लिए ggplot का उपयोग कर रहा हूं। और प्लॉट मैं हो रही है कुछ इस तरह है:

और यह स्वयं लिखा समारोह मैं उपयोग कर रहा हूँ है:

df <- data.frame(id=letters[1:3],val0=1:3,val1=4:6,val2=7:9, val3=2:4, val4=1:3, val5=4:6, val6=10:12, val7=12:14) 

PropBarPlot<-function(df, mytitle=""){ 
    melteddf<-melt(df, id=names(df)[1], na.rm=T) 
    ggplot(melteddf, aes_string(x=names(df)[1], y="value", fill="variable")) + 
    geom_bar(position="fill") + 
    theme(axis.text.x = element_text(angle=90, vjust=1)) + 
    labs(title=mytitle) 
} 

print(PropBarPlot(df)) 

यहाँ val4 और val5 बहुत अलग नहीं हैं।

लेकिन रंगों के कारण उनमें से कुछ अलग-अलग नहीं हैं। क्या कोई मुझे बता सकता है कि बेहतर रंग कैसे चुनें ताकि वे अलग-अलग हों?

धन्यवाद।

Answer 1

आपकी मदद के लिए धन्यवाद @zelite और @ SimonO101। यह आपके द्वारा प्रस्तावित दोनों का सरल संस्करण है। पूर्णता के लिए यहां जोड़ना।

library(ggplot2) 
library(reshape2) 
library(RColorBrewer) 

getColors<-function(n){ 
    mypal<-colorRampPalette(brewer.pal(12, "Paired")) 
    sample(mypal(n), n, replace=FALSE) 
} 

PropBarPlot<-function(df, mytitle=""){ 
    melteddf<-melt(df, id=names(df)[1], na.rm=T) 
    n<-length(levels(factor(melteddf$variable))) 

    ggplot(melteddf, aes_string(x=names(df)[1], y="value", fill="variable")) + 
     geom_bar(position="fill") + 
     scale_fill_manual(values=getColors(n)) + 
     theme(axis.text.x = element_text(angle=90, vjust=1)) + 
     labs(title=mytitle) 
} 

df <- data.frame(id=letters[1:3], 
      val0=1:3, 
      val1=4:6, 
      val2=7:9, 
      val3=2:4, 
      val4=1:3, 
      val5=4:6, 
      val6=10:12, 
      val7=12:14) 

print(PropBarPlot(df)) 

धन्यवाद।

Answer 2

कैसे scale_fill_brewer जो ColorBrewer वेबसाइट से रंग पट्टियाँ का उपयोग करता है, पैकेज RColorBrewer द्वारा कार्यान्वित का उपयोग कर के बारे में?

ggplot(diamonds, aes(clarity, fill=cut)) + 
geom_bar() + 
scale_fill_brewer(type = "div" , palette = "RdBu") 

विभिन्न अपसारी पट्टियाँ आप चुन सकते हैं की एक संख्या हैं।

require(RColorBrewer) 
?brewer.pal 

आप और अधिक रंग की जरूरत है आप colorRampPalette सुविधाओं का उपयोग कर सकते हैं कुछ रंगों के बीच अंतर्वेशन को (और मैं इस के लिए एक brewer.pal पैलेट का प्रयोग करेंगे)। तुम इतनी तरह कर सकते हैं:

# Create a function to interpolate between some colours 
mypal <- colorRampPalette(brewer.pal(6 , "RdBu")) 
# Run function asking for 19 colours 
mypal(19) 
[1] "#B2182B" "#C2373A" "#D35749" "#E47658" "#F0936D" "#F4A989" "#F8BFA5" 
[8] "#FCD6C1" "#F3DDD0" "#E7E0DB" "#DAE2E6" "#CBE1EE" "#ADD1E5" "#90C0DB" 
[15] "#72AFD2" "#5B9DC9" "#478BBF" "#3478B5" "#2166AC" 

अपने उदाहरण जो 8 रंग आप एक scale_fill_manual() के साथ इस तरह यह उपयोग की आवश्यकता है में:

PropBarPlot<-function(df, mytitle=""){ 
    melteddf<-melt(df, id=names(df)[1], na.rm=T) 
    ggplot(melteddf, aes_string(x=names(df)[1], y="value", fill="variable")) + 
    geom_bar(position="fill") + 
    theme(axis.text.x = element_text(angle=90, vjust=1)) + 
    labs(title=mytitle)+ 
    scale_fill_manual(values = mypal(8)) 
} 

print(PropBarPlot(df)) 

Answer 3

@ SimonO101

library(ggplot2) 
library(reshape2) 
library(RColorBrewer) 
mypal <- colorRampPalette(brewer.pal(9 , "Set1")) #you can try using different palete instead 
#of "Set1" until it looks good to you 

intercalate <- function(n){ #my crude attempt to shuffle the colors 
    c(rbind(1:(n/2), n:(n/2+1))) #it will only work for even numbers 
} 

PropBarPlot<-function(df, mytitle=""){ 
    melteddf<-melt(df, id=names(df)[1], na.rm=T) 
    ggplot(melteddf, aes_string(x=names(df)[1], y="value", fill="variable")) + 
    geom_bar(position="fill") + 
    theme(axis.text.x = element_text(angle=90, vjust=1)) + 
    labs(title=mytitle)+ 
    scale_fill_manual(values = mypal(8)[intercalate(8)]) 
    #better would be to calculate the different number of categories 
    #you have and put that instead of the number 8 
} 

df <- data.frame(id=letters[1:3], 
       val0=1:3, 
       val1=4:6, 
       val2=7:9, 
       val3=2:4, 
       val4=1:3, 
       val5=4:6, 
       val6=10:12, 
       val7=12:14) 

print(PropBarPlot(df)) 

से कुछ कोड उधार देखें कि क्या यह आपकी आवश्यकताओं के लिए बेहतर काम करता है।

Answer 4

मैं प्रयोग करेंगे scale_fill_manual = c ("लाल", "हरी"), आप और अधिक रंग अगर आप या scale_fill_brewer चाहते डाल सकते हैं (पैलेट = "रेड्स"), मैं इस एक पसंद है। आप यहां पैलेट का उपयोग कर सकते हैं