x=Statistic <- c(68,85,74,88,63,78,90,80,58,63) y=Math <- c(85,91,74,100,82,84,78,100,51,70) color <- c("sky blue") plot(x=Statistic, y=Math, pch = 11 ,col = color)