Línea de regresión


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

income.graph
MianSonu