有一种在一个绘图上绘制两条回归线的好方法吗？

Question

我需要在一张图上绘制两条约束线y（x）和x（y）。有没有比这更好的方法了（如果不是，那是正确的方法吗？）： 1.计算回归参数y〜x 2.计算回归参数x〜y 3.从2转换参数 4.用abline画两条线

任何图形化软件包对我都有益

Answer 1

以内置BOD为例：

plot(demand ~ Time, BOD)
fm1 <- lm(demand ~ Time, BOD)
fm2 <- lm(Time ~ demand, BOD)
abline(fm1)
lines(demand ~ fitted(fm2), BOD, col = "red")