समूहित बारप्लॉट, एक संख्यात्मक बनाम तीन फैक्टोरियल चर

Question

मुझे निम्नलिखित के साथ समस्याएं आ रही हैं। मुझे 3 कारक चर बनाम 1 संख्यात्मक चर को बारप्लॉट करने की आवश्यकता है।

मेरे डाटासेट:

Site,Gall,Status,Count 
Site1,absent,unhealthy,35 
Site1,absent,healthy,1750 
Site1,present,unhealthy,23 
Site1,present,healthy,1146 
Site2,absent,unhealthy,146 
Site2,absent,healthy,1642 
Site2,present,unhealthy,30 
Site2,present,healthy,333 

मैं ggplot उपयोग करने की कोशिश की है, लेकिन तब यह सिर्फ मेरे परिभाषित एक्स, वाई, और एक और विकल्प की सुविधा देता है, तो मैं भरने का इस्तेमाल किया है = पित्त।

मेरा कोड निम्नानुसार दिखता है, मुझे अभी भी एक कारक चर शामिल है।

ggplot(dat, aes(Status, Count, fill = Gall)) + 
    geom_bar(stat = "identity", position = "dodge") 

क्या कोई मेरी मदद कर सकता है?

धन्यवाद, बहुत सराहना की

Answer 1

कुछ समाधान हैं। आप दो कारकों द्वारा भरने पर आमादा हैं, तो आप interaction उपयोग कर सकते हैं:

ggplot(dat, aes(Status, Count)) + 
    geom_col(aes(fill = interaction(Site, Gall)), position = "dodge") 

सामान्य में हालांकि, यह कई कारकों के लिए faceting उपयोग करने के लिए बेहतर है। उदाहरण के लिए:

ggplot(dat, aes(Status, Count)) + 
    geom_col(aes(fill = Gall), position = "dodge") + facet_grid(Site ~ .) 

Answer 2

आप सलाखों के बजाय अंकों के साथ बेहतर हो सकता है। उदाहरण के लिए:

library(dplyr) 
library(ggplot2) 

ggplot(dat %>% mutate(Site = gsub("([0-9]$)", " \\1", Site)), 
     aes(Status, Count, colour=Status, shape=Gall)) + 
    geom_point(size=3, position=position_dodge(0.5), stroke=1) + 
    facet_grid(~ Site, switch="x") + 
    theme_classic() + 
    theme(strip.placement = "outside", 
     strip.background=element_blank()) + 
    scale_colour_manual(values=hcl(c(195,15),100,65)) + 
    scale_shape_manual(values=c(1,16)) + 
    labs(x="") + 
    guides(colour=FALSE)