Gráficos de dispersión agrupados

Una de las variables de la matriz datos_ansiedad es género. Así que podría ser interesante ver si la ansiedad influye de manera diferente para hombres y mujeres en el examen de memoria. Para obtener el diagrama de dispersión agrupado por género, primeramente tendremos que incluir la instrucción colour= genero justo después de donde especificamos las variables que aparecerán en el eje x e y:

dispersion_gender <- ggplot(datos_ansiedad, aes(Ansiedad, Puntuacion, colour=Genero))

Ahora tan solo tendremos que añadir los puntos y la línea de regresión, para ello: 

dispersion_gender + geom_point()+geom_smooth(method="lm")

Sin embargo, si ejecutamos la anterior instrucción, nos daremos cuenta que el área sombreada aparece en gris tanto para el género masculino como para el femenino. Esto podemos cambiarlo si añadimos un estético a nuestro geom_smooth()  

dispersion_gender + geom_point()+geom_smooth(method="lm", aes(fill=Genero))

Como se puede ver, hemos añadido la instrucción fill para decir que el relleno del área sombreada tenga un color diferente para cada género.  

Click aquí para descargar el script de esta entrada.