r - 如何将表达式的变量传递给curve()作为方程式？

Question

我有以下代码:

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

我想使用R的符号导数函数D绘制一阶导数的图:

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'

我试图将D(e)包装在对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")))