statistic <- c(68,85,74,88,63,78,90,80,58,63)
math <- c(85,91,74,100,82,84,78,100,51,70)
plot(statistic,math,
   main = "統計成績與數學成績",
   xlab = "統計成績",ylab = "數學成績",
   pch = 17, col = "orange")