强制线性回归与 x 轴截取

Question

enter image description here我是 R 的新手，并且已经研究了很长时间，但它就是行不通。我有一个图，通过它拟合了线性回归，现在我想强制回归通过 x 轴 (2;0) 上的特定点。

这是我使用的公式：

abline(lm(I(H2S.Basaltsite-0) ~ I(t.Basaltsite-2) + 0, data=values), col="red") 

不幸的是，它不起作用。任何想法为什么？

这就是我从你的解决方案中得到的情节，Ben..

Answer 1

我认为abline 无法处理这种情况。

set.seed(101)
dd <- data.frame(x=runif(100,0,10))
dd$y <- rnorm(100,mean=1+2*dd$x,sd=0.5)
m1 <- lm(y~I(x-2)+0,dd)
plot(y~x,data=dd,ylim=c(0,25),las=1,bty="l")
b <- coef(m1)[1]
curve(b*(x-2),add=TRUE,col=2)
points(2,0,pch=16)