अभिव्यक्ति के चर को वक्र() को इसके समीकरण के रूप में कैसे पास किया जाए?

Question

मैं निम्नलिखित कोड है:

e <- expression(x^2+3*x-3) 

मैं आर के प्रतीकात्मक व्युत्पन्न समारोह डी का उपयोग कर पहली व्युत्पन्न की साजिश आकर्षित करने के लिए करना चाहते हैं:

curve(D(e), from=0, to=10) 

लेकिन तब मैं निम्नलिखित त्रुटि मिलती है:

Error in curve(expression(e), xname = "x", from = 0, to = 3000) : 
    'expr' must be a function, or a call or an expression containing 'x' 

मैंने डी (ई) को eval() के कॉल में लपेटने की कोशिश की, लेकिन इसका कोई फायदा नहीं हुआ।

में थोड़ा और अधिक कोशिश कर रहा है:

substitute(expression(x^2+3*x-3), list(x=3)) 

परिणाम प्रत्याशित ही में:

expression(3^2+3*3-3) 

लेकिन:

substitute(e, list(x=3)) 

परिणामों में:

e 

क्या हो रहा है? मैं यह कैसे काम कर सकता हूं?

Answer 1

यह थोड़ा भद्दा है, लेकिन

eval(substitute(curve(y),list(y=D(e,"x")))) 

काम करने के लिए लगता है। ऐसा नहीं करता है

do.call(curve,list(D(e,"x"))) 

Answer 2

कार्यों में हेरफेर और परीक्षण करने के लिए सरल कर रहे हैं:

e <- expression(x^2+3*x-3) 
de <- D(e, 'x') 
fde <- function(x) eval(de) 

curve(fde, from=0, to=10)