R中的曲线/线拟合

Question

我正在绘制河流水位和流量之间的图形。然后，我想在分散点上划一条线。我的数据框df1有4704行和2列-放电和液位。

fit  <- lm(df1$Level ~ df1$Discharge)
xx <- seq(0, max(df1$Discharge), length = 4704)
plot(x = df1$Discharge, y = df1$Level, pch = 19)
lines(xx, predict(fit, data.frame(x = xx)), col = "red")

我没有得到直线，而是得到了其他东西。

我想知道，有没有办法得到适合散点的直线？请指导我。

Answer 1

如果您提供数据（据我所见，最好在不提供具有正确变量名的data.frame的情况下进行预测，那可能会引起问题。如果我在某些数据上重新运行您的代码：

set.seed(100)
df1 = data.frame(Level=runif(4704))
df1$Discharge=20*df1$Level + runif(4704)
fit  <- lm(Level ~ Discharge, data = df1)
xx <- seq(0, max(df1$Discharge), length = 4704)
plot(x = df1$Discharge, y = df1$Level, pch = 19)

此行引发错误：

lines(xx, predict(fit, data.frame(x = xx)), col = "red")
Error in eval(predvars, data, env) : object 'Discharge' not found

如果您更改列名，它将起作用：

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

请提供可复制的示例。