R中使用nls的非线性建模

Question

我想使用非线性回归线来显示树的高度与直径的关系。我使用以下公式：

h = A + B∙d + C∙d²

为此我在R中使用了nls包。我以下面的方式插入了公式：

M1<-nls(T_Height~p1+p2*DBH+p3*DBH^2)
plot(T_Height~DBH)
lines(DBH,predict(M1),lty=2,col='red',lwd=3)

然而，结果不是单行拟合，但看起来如下

我做错了什么？有没有办法将结果减少到一条拟合线？

提前致谢