动态拟合两条直线并求出R中这两条直线之间的交点

# 数据准备
x1 <- c(1, 2, 3, 4, 5)  # 第一条直线的x坐标
y1 <- c(2, 4, 6, 8, 10)  # 第一条直线的y坐标
x2 <- c(1, 2, 3, 4, 5)  # 第二条直线的x坐标
y2 <- c(10, 8, 6, 4, 2)  # 第二条直线的y坐标

# 动态拟合直线
fit1 <- lm(y1 ~ x1)  # 第一条直线的拟合结果
fit2 <- lm(y2 ~ x2)  # 第二条直线的拟合结果

# 求交点
a1 <- coef(fit1)[2]  # 第一条直线的斜率
b1 <- coef(fit1)[1]  # 第一条直线的截距
a2 <- coef(fit2)[2]  # 第二条直线的斜率
b2 <- coef(fit2)[1]  # 第二条直线的截距
x_intersect <- solve(matrix(c(a1, -a2, 1, -1), nrow = 2)) %*% c(-b1, -b2)  # 交点的x坐标
y_intersect <- a1 * x_intersect + b1  # 交点的y坐标

# 输出结果
intersect_point <- c(x_intersect, y_intersect)
print(intersect_point)