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 = “統計成績 vs 數學成績 散佈圖”, xlab = “統計成績”, ylab = “數學成績”, pch = 19, col = “blue”)