在 R 中绘制逆线性回归拟合曲线，它看起来不正确

Question

我正在尝试将一些数据点拟合到逆线性回归曲线。我希望曲线看起来像这样：

然而，下面的曲线给了我一条几乎是直上直下的线，这是没有意义的。我在互联网上搜索了如何执行此操作，但似乎没有很多有用的东西。如果有人知道如何做到这一点，我将不胜感激

x <- (1:75)
w <- rep(10,25)
z <- rep(5,25)
a <- rep(4,25)
b = append(w,z)
y = append(b,a)
model = lm(y ~ I(1/x))
plot(x,y)
abline(model)

Answer 1

abline()

绘制一条直线，而函数 y= f(1/x) 则不是。所以你需要做的是使用这样的预测函数：

x <- (1:75)
w <- rep(10,25)
z <- rep(5,25)
a <- rep(4,25)
y = c(w, z, a)
model = lm(y ~ I(1/x))
plot(x,y)


y2<- predict(model, data.frame(x))
lines(x, y2)