如何将表达式的变量传递给curve（）作为其等式？

I've the following code:

我有以下代码:

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