प्लॉट टेक्स्ट में एक अभिव्यक्ति का उपयोग करना - इसके नाम

Question

के बजाय एक चर के मान को प्रिंट करना मैं इसमें एक एक्सपोनेंट रखने के लिए एक लेबल प्राप्त करने का प्रयास कर रहा हूं। यहाँ कोड मैं

vall = format(cor(x,y)*cor(x,y),digits=3) 
eq <- expression(paste(R^2," = ",vall,sep="")) 
text(legend.x,legend.y,eq,cex=1,font=2) 

है लेकिन पाठ बस इस

मैं वास्तविक Vall (और नहीं पाठ "Vall")

Answer 1

प्रयास करें bquote() दिखाने के लिए कैसे मिलता है की तरह लग रहा है उदाहरण के लिए:

set.seed(1) 
vall <- format(rnorm(1),digits=3) 
eq <- bquote(bold(R^2 == .(vall))) 
sq <- seq(0, 1, by = 0.1) 
plot(sq, sq, type = "n") 
text(0.5, 0.5, eq) 

कारण अपने उदाहरण से काम नहीं करता है कि आर कभी नहीं vall का मूल्यांकन समाप्त होता है:

> eq2 <- expression(paste(R^2," = ",vall,sep="")) 
> eq2 
expression(paste(R^2, " = ", vall, sep = "")) 

plotmath इस बाहर कुछ बनाने की कोशिश करता है, लेकिन अनिवार्य रूप से vall सचमुच लिया जाता है।

सामान्य रूप से आपको प्लॉटमाथ अभिव्यक्ति में paste() की आवश्यकता नहीं है, तो आप मानक ऑपरेटरों का उपयोग करके और लेआउट ऑपरेटरों के उपयोग के माध्यम से अभिव्यक्ति का निर्माण कर सकते हैं। उदाहरण के लिए, एक अभिव्यक्ति एक अपने उदाहरण का उत्पादन (unevaluated vall) के बराबर के लिए, तुम सब वास्तव में जरूरत है:

expression(R^2 == vall) 

bquote() एक तरह से एक वस्तु एक अभिव्यक्ति में अपने मान से बदल दिया है। आप उस ऑब्जेक्ट को लपेटते हैं जिसे आप .() में अपने मान से बदलना चाहते हैं। फिर ऑब्जेक्ट की तलाश करेगा और उसका मूल्य लेगा और इसे अभिव्यक्ति में डालेंगे।

एक अलग इंटरफ़ेस के साथ वैकल्पिक दृष्टिकोण के लिए substitute() भी देखें।