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") 

불행하게도, 그것은 작동하지 않습니다

이 내가 사용하는 식이다. 어떤 아이디어? 내가 솔루션, 벤 얻을 플롯 그게

..

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)