R语言，plot和curve函数，下面的方法为什么一个不报错一个报错？

Question

首先我定义了一个函数a，返回一个数字，比如

a=function(x){1}
然后我
plot(function(x){sapply(x,a)},0,2)
这没问题。
问题就在于完全一样的用curve方法的时候
curve(function(x){sapply(x,a)},0,2)
上面这句话报错：
'expr' did not evaluate to an object of length 'n'
原因何在，以及这句话我该怎么改？
我不想改成两行。

Answer 1

curve(sapply(x,a),0,2)

把function(x){}剥掉应该就行了本回答被提问者采纳