Есть ли хороший способ построить две линии регрессии на одном графике?

Question

Мне нужно построить две линии регрессии y (x) и x (y) на одном графике.Есть ли лучший способ, чем сделать это (и если нет, то правильный ли это?): 1. подсчет параметров регрессии y ~ x 2. подсчет параметров регрессии x ~ y 3. преобразование параметров из 2) 4. построение двухлинии с аблайном

когда-либо графический пакет хорош для меня

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