प्रत्येक किंवदंती लेबल

Question

के लिए दो प्रतीकों को दिखाएं pch का उपयोग करके मैं किसी भी प्रतीक को साजिश कर सकता हूं और किंवदंती में किसी भी लेबल को असाइन कर सकता हूं। लेकिन मैं प्रत्येक किंवदंती लेबल के लिए दो प्रतीकों को कैसे प्लॉट कर सकता हूं? उदाहरण के लिए, नीचे की साजिश में, मुझे ■ ▲ ● उन लोगों के लाल संस्करणों के साथ जोड़ा जाना चाहिए, इसलिए मेरे पास छः प्रतीकों के लिए किंवदंती में प्रदर्शित केवल तीन लेबल 'ए', 'बी', 'सी' है। फिलहाल, ऐसा लगता है कि मूल कथानक कथा मुझे केवल हर लेबल के लिए एक प्रतीक प्लॉट करने के लिए अनुमति देता है:

plot(rnorm(50),pch=c(15:17),col=1:2) 
legend('topleft',pch=c(15:17),col=1:2,legend=c("a","b","c"),cex=1.5) 

Answer 1

यह lattice साथ भी कठिन नहीं है, जैसा कि इसके key = तर्क एक मनमाना संख्या लेता है पौराणिक कथाओं में शामिल किए जाने वाले स्तंभों का।

library(lattice) 

myPCH <- 15:17 
Data <- rnorm(50) 
Index <- seq(length(Data)) 

xyplot(Data ~ Index, 
     pch = myPCH, col=1:2, 
     key = list(space = "right", adj=1, 
        text = list(c("a", "b", "c"), cex=1.5), 
        points = list(pch = myPCH), 
        points = list(pch = myPCH,col=2))) 

मैं अपने सिर कैसे साजिश क्षेत्र के अंदर कथा शामिल करने के लिए के ऊपर से पता नहीं है, लेकिन साजिश के इस प्रकार के साथ वैसे भी यह बाहर है करने के लिए बेहतर लगता है। (संपादित करें: टिप्पणी में @chl कृपया तरीके यह करने के लिए की एक जोड़ी बताते हैं उदाहरण के लिए में आंकड़ा में नीचे बाईं ओर कुंजी प्लॉट करने के लिए, या तो corner = c(0,0) या x = 0, y=0.2 के साथ ऊपर में space = "right" बदलें।)

Answer 2

जैसे कि सीएल ने बताया, एक अनुकूलित किंवदंती बनाना भी संभव है। समारोह 'किंवदंती' अदृश्य रूप से किंवदंती बॉक्स की सीमाओं के साथ-साथ किंवदंती पाठ के निर्देशांक देता है। कोई प्रतीक के बिना पौराणिक पाठ को साजिश कर सकता है, और फिर प्रतीकों को मैन्युअल रूप से 'पॉइंट' के साथ वापस निर्देशांक में जोड़ सकता है। यह किसी भी अतिरिक्त ग्राफिक्स पैकेज की आवश्यकता नहीं होगी:

plot(rnorm(50), pch=c(15:17), col=1:2) 
# Plot legend text, inset could be used to shift legend text to the right 
pos <- legend('topleft', legend=c("a","b","c"), cex=1.5) 
# Plot symbols in two columns, shifted to the left by 3 and 1 respectively 
points(x=rep(pos$text$x, times=2) - c(3,1), 
    y=rep(pos$text$y, times=2), 
    pch=rep(c(15:17), times=2), col=rep(1:2, times=3))