आर प्लॉट पूर्ववत लाइन खंड? - आर, सेगमेंट

क्या किसी सेगमेंट को पूर्ववत करना या उसे अपने प्लॉट से हटाना एक त्वरित और आसान कार्य है?

    p1 <- locator(1)
p2 <- locator(1)
segments(p1$x, p1$y, p2$x, p2$y, col = "pink")
//Undo segments

मेरे कहने का मतलब यह है कि क्या स्टोर करना संभव हैलाइन सेगमेंट (प्रत्येक पिक्सेल का रंग / तीव्रता) जिसे आप मिटाने वाले हैं, और फिर बाद में उस लाइन सेगमेंट को जोड़ते हैं, जहां गुलाबी खंड गुलाबी रंग में आकर्षित होता है। कोई इसे कैसे पूरा करेगा?

उत्तर:

आप इसे ग्रिड ग्राफिक्स के साथ कर सकते हैं,

library(grid)
ll = replicate(2, grid.locator())
g = grid.segments(ll[,1]$x, ll[,1]$y, ll[,2]$x, ll[,2]$y,
name="mysegment", gp=gpar(col="pink", lwd=5))
grid.remove("mysegment")

जब तक आप उपयोग नहीं करते तब तक आप सबसे अच्छा कर सकते हैं grid ग्राफिक्स को पृष्ठभूमि के रंग में आक्रामक खंड पर लिखना है (अर्थात segments(p1$x, p1$y, p2$x, p2$y, col = "white") अगर पृष्ठभूमि सफेद है - एक हैक जो कभी-कभी विफल हो जाता है)।

किसी भी तरह से बाद में उन्हें हटाने के लिए लिखित पिक्सल को संग्रहीत करने के बारे में ऊपर दिए गए अपने अद्यतन प्रश्न को संबोधित करने के लिए; आर के बेस ग्राफिक्स सिस्टम में (पॉल मुर्रेल से अलग है) grid ग्राफिक्स सिस्टम, जैसा कि @baptiste, या ग्राफिक्स द्वारा चर्चा की गई है rgl डायनेमिक 3 डी ग्राफिक्स के लिए पैकेज) रूपक एक कैनवास का होता है जिसे आप फिर से पेंट करते हैं। आर doesn "t" याद रखें "यह क्या खींचा है; उन पिक्सेल या खंडों को आउटपुट डिवाइस में जोड़ा जाता है और उन्हें भुला दिया जाता है।