在 R 中绘制方程组

Question

假设您有一个如下所示的方程组（5 个方程和 2 个变量）：

Ax + By = C

AB <- matrix(runif(10), 5)
C <- c(5, 10, 15, 20, 25)

你如何在 R 中绘制这个方程组，而不先手动转换成

y = (C - Ax) / B

Answer 1

您在找这样的东西吗？

set.seed(101)
AB <- matrix(runif(10), 5)
C <- c(5, 10, 15, 20, 25)

x = seq(-70,70,1)

plot(x, (C[1] - AB[1,1]*x)/AB[1,2], col=1, type="l", ylim=c(-100,200))

for (i in 2:nrow(AB)) {
    lines(x, (C[i] - AB[i,1]*x)/AB[i,2], col=i, type="l")
}

在 R 中绘制方程组

Plot a system of equations in R

plot

r

linear-regression