Ошибка в int_abline .... plot.new еще не была вызвана, как поставить линию наилучшего соответствия?

Question

Я пытаюсь поставить линию наилучшего соответствия на графике, но я получаю эту ошибку

Я уже изменил порядок, в котором я ставлю "abline (17.147, 7.245)",Я также пытался добавить plot.new (), но это не сработало

print(lm(mtcars$mpg ~ mtcars$am))
#the coefficients from above are 17.147 and 7.245
q <- qplot(x = wt, y = mpg, data = mtcars, color = am)
q
abline(17.147, 7.245)

Я ожидаю, что линия наилучшего соответствия на моем графике

Answer 1

Вы смешиваете функции ggplot и plot.Они не могут быть легко смешаны, поэтому просто используйте один стиль печати. ​​

решение с plot:

plot(mtcars$wt, mtcars$mpg)
abline(17.147, 7.245)

решение с ggplot

q <- qplot(x = wt, y = mpg, data = mtcars, color = am)
q + geom_abline(intercept=17.147, slope=7.245)