traza un grafico de puntos negros con su linea de regresion en rojo con los siguientes datos(usa: ggplot, geom_point y geom_aline) x=edad y=ingresos titulo=grafico de puntos_entrique

library(ggplot2)
edad<-c(1,2,3,4,5,6,7,8,9,10)
ingresos<-c(2,4,6,8,10,12,14,16,18,20)
ggplot(data=data.frame(edad,ingresos)) + 
  geom_point(aes(x=edad, y=ingresos),colour="black")+
  geom_line(aes(x=edad, y=ingresos),colour="red")+
  ggtitle("grafico de puntos_entrique")