如何将正常曲线拟合到此R代码中？

Question

我正在尝试在R中的这个非常小的数据集上绘制一条简单的曲线，但该线不会出现在图表上（见图）。想知道这段代码究竟出了什么问题：

Decline_Category <- c(1,2,3)
Number_of_Trees <- c(80,15,5)
plot(Decline_Category,Number_of_Trees,pch=19)

fit  <- lm(Number_of_Trees~Decline_Category)
xx <- seq(1,80, length=3)
plot(Decline_Category,Number_of_Trees,pch=19,ylim=c(0,100))
lines(xx, predict(fit, data.frame(=xx)), col="red")

Answer 1

你的line（）函数中有一个拼写错误： 它应该是

lines(xx, predict(fit, data.frame(Decline_Category=xx)), col="red")