दो कारक बार साजिश

Question

निम्नलिखित dataframe से कार्य करना:

> foo 
     species density day percent 
    1 species1 high 1 0.40 
    2 species1  low 1 0.20 
    3 species1 medium 1 0.40 
    4 species2 high 1 0.35 
    5 species2  low 1 0.10 
    6 species2 medium 1 0.55 
    7 species3 high 1 0.35 
    8 species3  low 1 0.20 
    9 species3 medium 1 0.45 
    10 species4 high 1 0.30 
    11 species4  low 1 0.20 
    12 species4 medium 1 0.50 
    13 species1 high 100 0.50 
    14 species1  low 100 0.40 
    15 species1 medium 100 0.10 
    16 species2 high 100 0.40 
    17 species2  low 100 0.05 
    18 species2 medium 100 0.55 
    19 species3 high 100 0.65 
    20 species3  low 100 0.05 
    21 species3 medium 100 0.30 
    22 species4 high 100 0.40 
    23 species4  low 100 0.20 
    24 species4 medium 100 0.40 

मैं निम्नलिखित आयामी बार ग्राफ बनाया है:

require(ggplot2) 

foo$density<-factor(foo$density,levels=c('low','medium','high')) 

d <- ggplot(foo, aes(x=species, y=percent, fill=density)) + 
    geom_bar(aes(width=.65), stat="identity") + 
    facet_grid(. ~ day) 

हालांकि, मैं इन मर्ज करना चाहते हैं एक दो-कारक बार ग्राफ बनाने के लिए ग्राफ। एक्स-अक्ष पर, प्रत्येक दिन -1 और 100 - प्रजातियों द्वारा समूहीकृत किया जाएगा। इसे कैसे बनाया जाए इस पर कोई सुझाव?

बहुत धन्यवाद!

Answer 1

यह एक

foo$species_day <- with(data = foo, expr = paste(species, day)) 
d <-ggplot(foo, aes(x=species_day, y=percent, fill=density)) + 
     geom_bar(aes(width=.65), stat="identity") 

प्रयास करें आप स्तरों पुनर्व्यवस्थित कर सकते हैं अगर आप चाहते हैं।

Answer 2

यहां एक और दृष्टिकोण है जो आपकी आवश्यकताओं के साथ @ जोरन के सुझाव को शामिल करता है।

मैंने day को एक कारक में बदल दिया है, लेकिन डिफ़ॉल्ट एक्स-अक्ष लेबल को "प्रजाति" में भी बदल दिया है। इसके अलावा, क्योंकि density स्पष्ट रूप से अनुक्रमिक कारक है, मैंने कलर ब्रेवर (http://colorbrewer2.org/) से अनुक्रमिक रंग स्केल का उपयोग किया है। आप palette नंबर बदलकर या scale_fill_brewer(palette="GnBu") नाम से पैलेट को कॉल करके रंग स्केल के साथ प्रयोग कर सकते हैं। रंग ब्रेवर वेब पेज पर पैलेट नाम खोजें।

foo <- read.table(header=TRUE, 
       text="species density day percent 
        1 species1 high 1 0.40 
        2 species1  low 1 0.20 
        3 species1 medium 1 0.40 
        4 species2 high 1 0.35 
        5 species2  low 1 0.10 
        6 species2 medium 1 0.55 
        7 species3 high 1 0.35 
        8 species3  low 1 0.20 
        9 species3 medium 1 0.45 
        10 species4 high 1 0.30 
        11 species4  low 1 0.20 
        12 species4 medium 1 0.50 
        13 species1 high 100 0.50 
        14 species1  low 100 0.40 
        15 species1 medium 100 0.10 
        16 species2 high 100 0.40 
        17 species2  low 100 0.05 
        18 species2 medium 100 0.55 
        19 species3 high 100 0.65 
        20 species3  low 100 0.05 
        21 species3 medium 100 0.30 
        22 species4 high 100 0.40 
        23 species4  low 100 0.20 
        24 species4 medium 100 0.40") 

foo$density <- factor(foo$density, levels=c("low", "medium", "high")) 
foo$day <- factor(paste("Day", foo$day, sep="_")) 

library(ggplot2) 

d2 <- ggplot(foo, aes(x=day, y=percent, fill=density)) + 
     theme_bw() + 
     geom_bar(width=0.95, stat="identity") + 
     scale_fill_brewer(type="seq", palette=15) + 
     xlab("Species") + 
     opts(axis.text.x=theme_text(size=6)) + 
     facet_grid(. ~ species) 

ggsave("barplot_1.png", d2, width=6, height=4) 

एक समस्या यह है कि मैं हल नहीं किया है कि density के स्तर को उचित क्रम में ढेर नहीं है (मेरे लिए या @ MYaseen208 के जवाब में) है। मूल पोस्ट में स्टैकिंग सही है। क्या कोई जानता है कि परेशानी क्या है?