Question

我有两个线性拟合，我从我的R脚本中的lm调用中获得。例如......

fit1 <- lm(y1 ~ x1)
fit2 <- lm(y2 ~ x2)

我想找到这两条线（fit1和fit2）相交的（x，y）点，如果它们相交的话。

Answer 1

然后是一些高中几何学; - ）

# First two models
df1 <- data.frame(x=1:50, y=1:50/2+rnorm(50)+10)
m1 <- lm(y~x, df1)

df2 <- data.frame(x=1:25, y=25:1*2+rnorm(25)-10)
m2 <- lm(y~x, df2)

# Plot them to show the intersection visually    
plot(df1)
points(df2)

# Now calculate it!    
a <- coef(m1)-coef(m2)
c(x=-a[[1]]/a[[2]], y=coef(m1)[[2]]*x + coef(m1)[[1]])

或者，为了简化@Dwin的基于solve的解决方案：

cm <- rbind(coef(m1),coef(m2)) # Coefficient matrix
c(-solve(cbind(cm[,2],-1)) %*% cm[,1])
# [1] 12.68034 16.57181

Answer 2

避免几何的一种方法是将方程重新参数化为：

y1 = m1 * (x1 - x0) + y0
y2 = m2 * (x2 - x0) + y0

就其交叉点(x0, y0)而言，然后使用nls一次执行两者的拟合，以便x0和y0的返回值给出结果：

# test data
set.seed(123)
x1 <- 1:10
y1 <- -5 + x1 + rnorm(10)
x2 <- 1:10
y2 <- 5 - x1 + rnorm(10)
g <- rep(1:2, each = 10) # first 10 are from x1,y1 and second 10 are from x2,y2

xx <- c(x1, x2)
yy <- c(y1, y2)
nls(yy ~ ifelse(g == 1, m1 * (xx - x0) + y0, m2 * (xx - x0) + y0),
    start = c(m1 = -1, m2 = 1, y0 = 0, x0 = 0))

编辑：请注意，xx<-...行和yy<-...行是新的，nls行已根据这些行进行了更正并进行了更正。

Answer 3

如果两个模型中的回归系数不相等（几乎可以肯定），则线将相交。 coef函数用于提取它们。其余的是高中几何学。

对于布兰登：M ^ -1％*％拦截 - ＆gt;

M <- matrix( c(coef(m1)[2], coef(m2)[2], -1,-1), nrow=2, ncol=2 )
intercepts <- as.matrix( c(coef(m1)[1], coef(m2)[1]) )  # a column matrix
 -solve(M) %*% intercepts
#        [,1]
#[1,] 12.78597
#[2,] 16.34479

Answer 4

我有点惊讶没有内置功能。</ p>

这是一个基本功能（对于lm结果），使用与上面的Tommy相同的一般方法。这使用了简单的替换方法，用于形式为＆＃34; y = mx + b＆＃34;找到y处的公共交点（y1 = y2; m1 * x + b1 = m2 * x + b2）并求解x：

功能定义

# Linear model Intercept function
lmIntx <- function(fit1, fit2, rnd=2) {
  b1<- fit1$coefficient[1]  #y-int for fit1
  m1<- fit1$coefficient[2]  #slope for fit1
  b2<- fit2$coefficient[1]  #y-int for fit2
  m2<- fit2$coefficient[2]  #slope for fit2
  if(m1==m2 & b1==b2) {print("Lines are identical")
  } else if(m1==m2 & b1 != b2) {print("Lines are parallel")
  } else {
    x <- (b2-b1)/(m1-m2)      #solved general equation for x
    y <- m1*x + b1            #plug in the result
    data.frame(x=round(x, rnd), y=round(y, rnd))
  }
}

<强>测试

line1 <- data.frame(x=c(0,1), y=c(0,2))
line2 <- data.frame(x=c(0,1), y=c(1,3))
line3 <- data.frame(x=c(0,1), y=c(1,5))

lmIntx(lm(line1$y~line1$x), lm(line2$y~line2$x))
[1] "Lines are parallel"


lmIntx(lm(line1$y~line1$x), lm(line1$y~line1$x))
[1] "Lines are identical"

lmIntx(lm(line1$y~line1$x), lm(line3$y~line3$x))
               x  y
(Intercept) -0.5 -1

找出两个线性拟合在R中相交的位置

4 个答案: