Draw a scatterplot of age vs. attractiveness, using gender to define the points' colors.(纵横轴以外的变量颜色差别)

R code:> plot(d$age, d$attractive,col = ifelse(d$male, 'blue', 'deeppink'))