R中的曲线/直线拟合
Curve / Line fitting in R
我正在绘制一条河流的水位和流量之间的图表。然后，我想在散点上画一条线。
我的数据框 df1 有 4704 行和 2 列 - Discharge 和 Level。
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")
我得到的不是直线，而是其他东西。
我想知道，有什么方法可以得到一条适合散点的直线吗？请指导我。
如果您提供数据会更好，据我所知，在不提供具有正确变量名称的 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")
请提供可重现的示例。
我正在绘制一条河流的水位和流量之间的图表。然后，我想在散点上画一条线。
我的数据框 df1 有 4704 行和 2 列 - Discharge 和 Level。
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")
我得到的不是直线，而是其他东西。
我想知道，有什么方法可以得到一条适合散点的直线吗？请指导我。
如果您提供数据会更好，据我所知，在不提供具有正确变量名称的 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")
请提供可重现的示例。