写成expression。然后用求导D

g <- deriv(y ~ 1 + 1/x - log(x), "x", function(x){})
虽然g在R中的输出看起来很凌乱，但它的确就是你想要的f的导函数， 可以试试:
g(1) # as expected, it is -2.

用D（）函数吧
比如我们要求函数x 2 +2x+3 的导函数的话，我们可以先定义一个表达式（expression）：
fun=expression(x^2+2*x+3) #定义函数为表达式

接下来用D()函数对fun进行求导就可以了：
D(fun,"x")
2 * x + 2
偏导数
> fun=expression(x^2+y^2+x*y)
> D(fun,"x")
2 * x + y
> D(fun,"y")
2 * y + x
> D(D(fun,"x"),"x")
[1] 2
> D(D(fun,"x"),"y")
[1] 1

求函数x 2 +y 2 +x?y 在(2,3)处的关于x 的一阶偏导数的值
> x=2;y=3
> eval(D(expression(x^2+y^2+x*y),"x"))
[1] 7
trig.exp <- expression(sin(cos(x + y^2)))
D.sc <- D(trig.exp, "x")
all.equal(D(trig.exp[[1]], "x"), D.sc)

为什么输入
fun=expression(x^2+2*x+3)
D(fun,"x")
之后，显示
Error: could not find function "D" 啊？