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 = 16,           
     col = "darkgreen",  
     cex = 1.5)         
grid()