“Регрессионная линия” Ответ

Регрессионная линия

income.graph <- income.graph + geom_smooth(method="lm", col="black")

income.graph