Вы можете создать «пустой» график с помощью type="n"
, а затем добавить свои линии регрессии с помощью abline
df <- mtcars
reg1 <- lm(mpg~cyl,mtcars)
reg2 <-lm(disp~hp,mtcars)
plot(c(0,0),c(0,60),type="n")
abline(reg1)
abline(reg2)
Вы также можете добавить очки с points
, если хотите. Тогда вам также не нужно создавать пустой график раньше, так как это «нормальный» график, а затем просто добавление абстракций.