R语言绘制散点图拟合的一次曲线，二次曲线，三次曲线在一个图中

可以使用R语言中的lm()函数来拟合一次，二次和三次曲线。首先需要准备好数据集，然后通过lm()函数拟合一次曲线，二次曲线和三次曲线。最后使用plot()函数绘制散点图，并在图中加上三条曲线。下面是一个示例代码：

# 首先需要准备好数据集
x <- c(1:10)
y <- c(1, 4, 5, 8, 9, 10, 14, 15, 18, 20)

# 使用lm()函数拟合一次曲线
fit1 <- lm(y ~ x)

# 使用lm()函数拟合二次曲线
fit2 <- lm(y ~ poly(x, 2))

# 使用lm()函数拟合三次曲线
fit3 <- lm(y ~ poly(x,