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")