“Línea de regresión” Código de respuesta

Línea de regresión

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

income.graph