2012-10-26 8 views
5

मैं समझने की कोशिश कर रहा हूं कि कैसे venneuler काम करता है और यह एक वेन आरेख आउटपुट करता है जिसे मैं उम्मीद नहीं करता। जब मैं कुछ समझने की कोशिश कर रहा हूं तो मुझे सरल उदाहरणों के साथ काम करना पसंद है। मैं मैट्रिक्स जो नीचे मेरा मानना ​​है कि है की आपूर्ति कर रहा हूँ:अप्रत्याशित venneuler आउटपुट

एक तार्किक या संख्यात्मक मैट्रिक्स जिसका कॉलम प्रतिनिधित्व सेट और सह-घटना है पंक्तियों में गैर शून्य (प्रतिनिधि सही।) मान द्वारा परिभाषित (वजन के लिए तार्किक matrices या संख्यात्मक matrices के लिए पंक्ति योग के लिए एक पंक्ति 1)। -वेनिनेम मैनुअल-

मैं उम्मीद करता हूं कि दो चीजों में दोनों की एक ही पंक्ति में 1 या 0 है, तो वे अपने वेन में ओवरलैप करेंगे। तो इस मैट्रिक्स डब्ल्यू और जेड में 1 या 0 का सामान्य नहीं है। मैं उम्मीद करता हूं कि उनके वेन ओवरलैप न करें लेकिन वे करते हैं (नीचे चित्र 1 देखें)। क्यूं कर? अगर मैं गलत जानकारी की आपूर्ति कर रहा हूं या इसे सुधारने की जरूरत है तो कृपया समझाएं। यदि यह venneular की गणना में है तो कृपया इसे समझाएं।

 w x y z 
[1,] 1 0 1 0 
[2,] 0 0 1 1 
[3,] 0 0 1 1 
[4,] 1 1 0 0 

https://dl.dropbox.com/u/61803503/venn.1.png

ऊपर के लिए कोड:

library(venneuler) 
w <- c(1,0,0,1) 
x <- c(0, 0, 0, 1) 
y <- c(1, 1, 1,0) 
z <- c(0, 1, 1,0) 
a <- cbind(w, x, y, z)  
v <- venneuler(a) 
plot(v) 
+0

मुझे लगता है> 3 सेट के साथ, वहाँ है, क्योंकि कोई सामान्य तरीके से व्यवस्था करने के लिए यह है सभी ओवरलैप बाधाओं को पूरा करने के लिए एक विमान पर 4 मंडल। (मुझे इसके लिए कोई संदर्भ नहीं मिला है - यह सिर्फ मेरी ज्यामितीय अंतर्ज्ञान है।) 'Venneuler()' et al के पीछे प्रोग्रामिंग का अधिकांश। पूरी तरह सटीक समाधान होने के बावजूद, जितना संभव हो सके उतना अच्छा काम करने का लक्ष्य होना चाहिए। –

+0

बहुत संभव है क्योंकि मैनुअल इनपुट चौराहे क्षेत्र और फिट चौराहे क्षेत्र के बीच प्रतिशत अंतर के रूप में अवशिष्ट पर चर्चा करता है। –

उत्तर

4

प्रयास करें इन - ?venneuler के उदाहरण के रूप में एक ही:

library(venneuler) 
plot(venneuler(c(A=1, B=1, C=1, "A&B"=0.5, "A&C"=0.5, "B&C"=0.5 ,"A&B&C"=0.5))) 

enter image description here

plot(venneuler(c(A=1, B=1, C=1, "A&B"=0.5, "A&C"=0.5, "B&C"=0.5 ,"A&B&C"=0))) 

enter image description here

कोई महत्वपूर्ण अंतर है? क्यों नहीं? क्योंकि दूसरा मामला असंभव है! कल्पना करें कि एरिया = 1 के 3 सर्किलों में से किसी भी क्षेत्र में क्षेत्र = 0.5 का चौराहे है, लेकिन सभी 3 के चौराहे में कुछ भी नहीं है?

अब अगर आप अपने वांछित मैट्रिक्स का एक अच्छा प्रतिनिधित्व करना चाहते, मैं VennDiagram पैकेज उपयोग करने का सुझाव:

library(VennDiagram) 
w <- c(1, 0, 0, 1) 
x <- c(0, 0, 0, 1) 
y <- c(1, 1, 1, 0) 
z <- c(0, 1, 1, 0) 

venn.diagram(
    x = list(w = which(w==1),x = which(x==1),y = which(y==1),z = which(z==1)), 
    height=2000, width=2000, resolution=300, col = "transparent",margin = 0.2, 
    fill = c("cornflowerblue", "green", "yellow", "darkorchid1"), alpha = 0.50, 
    cex = 1.5,filename="~/Desktop/a.tiff",fontfamily = "serif",fontface = "bold", 
    cat.col = c("darkblue", "darkgreen", "orange", "darkorchid4"),cat.cex = 1.5, 
    cat.pos = 0,cat.dist = 0.07,cat.fontfamily = "serif",rotation.degree = 270, 
    label.col = "white"); 

enter image description here

संबंधित मुद्दे