ggvis पक्ष-साथ barchart दूसरा चर

Question

के आधार पर वर्गीकृत मैं Excel से पलायन डेटा विश्लेषण के लिए ggvis करने की प्रक्रिया में हूँ। दो चर के साथ एक विशिष्ट वर्गीकृत किया बार चार्ट के लिए, तथापि मैं साजिश को कठिनाई होती हैबार चार्ट साइड-बाई-साइड बजाय खड़ी।

निम्न डेटा चार चरणों दो विशेषताएं सीसी, सीए से "अनुपात" डेटा के साथ ए, बी, सी, डी है मेरा प्रयास सीसी और सीए सुविधाओं से अनुपात को साजिश करना है। हालांकि, दो डेटा एक साथ ढेर के साथ डिफ़ॉल्ट साजिश। जांचें कि ggvis vignetts में स्टैक = FALSE सेट करने का विकल्प है। लेकिन यह दूसरी सुविधा को ओवरलैप करेगा।

क्या ggplot में "geom_bar (position =" dodge ")" जैसी चीजें करने के लिए ggvis में कोई विकल्प है?

library(ggvis) 
steps <-c("A","B","C","D","A","B","C","D") 
ratio <-c(1.1,1.5,1.7,1.4,1.5,1.7,1.4,1.9) 
feature <-c("cc","cc","cc","cc","ca","ca","ca","ca") 
shrink <- data.frame(steps,ratio,feature) 
shrink %>% ggvis(x= ~steps, y= ~ratio, fill = ~feature) %>% layer_bars() 

Answer 1

मैं अभी तक यह करने के लिए एक आसान तरीका नहीं दिख रहा। लेकिन चारों ओर एक काम स्पष्ट रूप से अपने एक्स का एक संयोजन के रूप में अपने एक्स अक्ष को परिभाषित करने और चर को भरने के लिए है:

library(ggivs) 
library(dplyr) 

steps <-c("A","B","C","D","A","B","C","D") 
ratio <-c(1.1,1.5,1.7,1.4,1.5,1.7,1.4,1.9) 
feature <-c("cc","cc","cc","cc","ca","ca","ca","ca") 
shrink <- data.frame(steps,ratio,feature) 


shrink %>% 
    mutate(steps_feature = factor(paste(steps, feature))) %>% 
    ggvis(x= ~steps_feature, y= ~ratio, fill = ~feature) %>% 
    layer_bars(stack = FALSE) 

नहीं

पूरी तरह से संतोषजनक - आप सलाखों के बीच अंतराल को नियंत्रित करने के लिए है, और शायद लेबल बदलने चाहते हैं - लेकिन सही दिशा में। मैं भले ही वे चारों ओर सबसे आम भूखंडों में से एक हैं वैसे भी बहुत ज्यादा नहीं इन भूखंडों की तरह करते हैं, मैं उन्हें नेत्रहीन संशय है,।

मैं जानता हूँ कि यह तुम क्या नहीं कहा है, और यह कुछ उपयोगकर्ताओं को एक समय उन्हें करने के लिए इस्तेमाल करने के लिए लेता है, लेकिन मैं बहुत डेटा की इस तरह के साथ एक बिखराव साजिश पसंद करते हैं:

library(tidyr) 
shrink %>% 
    spread(feature, ratio) %>% 
    ggvis(x = ~ca, y = ~cc, text := ~steps) %>% 
    layer_text(fontSize := 35)