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