ggplot2 हिस्टोग्राम

Question

में रंग मैन्युअल रूप से भरने के लिए कैसे मैं एक हिस्टोग्राम उत्पन्न कर रहा हूं और मैं विशिष्ट समूहों के साथ कुछ समूहों को रंगना चाहता हूं। यहाँ मेरी हिस्टोग्राम है:

मैं 14 समूहों है और मैं पहले 7 लाल, अगले 4 नीले, और अंतिम 3 नारंगी रंग करने के लिए करना चाहते हैं। मैं ggplot में यह कैसे कर सकता हूं? धन्यवाद।

Answer 1

UPDATED संस्करण

समूहीकरण स्तंभ निर्दिष्ट करने के लिए कोई ज़रूरत नहीं, ggplot आदेश और अधिक कॉम्पैक्ट है।

library(ggplot2) 
set.seed(1234) 

# Data generating block 
df <- data.frame(x=sample(1:14, 1000, replace=T)) 
# Colors 
colors <- c(rep("red",7), rep("blue",4), rep("orange",3)) 

ggplot(df, aes(x=x)) + 
    geom_histogram(fill=colors) + 
    scale_x_discrete(limits=1:14) 

पुराने संस्करण

library(ggplot2) 

# 
# Data generating block 
# 
df <- data.frame(x=sample(c(1:14), 1000, replace=TRUE)) 
df$group <- ifelse(df$x<=7, 1, ifelse(df$x<=11, 2, 3)) 

# 
# Plotting 
# 
ggplot(df, aes(x=x)) + 
    geom_histogram(data=subset(df,group==1), fill="red") + 
    geom_histogram(data=subset(df,group==2), fill="blue") + 
    geom_histogram(data=subset(df,group==3), fill="orange") + 
    scale_x_discrete(breaks=df$x, labels=df$x)