我写了一个函数，想用ggplot或者base中的画图方法将函数画出。我的函数是
fun<-function(x){
        sum(fit1$coefficients*c(1,x,x^2,x^3,x^4))
}


其中fit1$coefficient是我用线性回归拟合出来的系数。

我的画图语句是

curve(fun,from = 1,to=5)
或者
plot(fun,xlim=c(1,5))

可是无论用哪个画图语句，都报错 'expr'没有评估为长度是'n'的对象

请问各位大神，这是为什么？感激不尽！

另外，r语言中有已经定义好了的多项式函数吗？在哪个包里？是什么函数？