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)