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="數學成績", col="blue", pch=19)

hist(Statistic, main="統計成績直方圖", xlab="統計成績", col="lightblue", border="black")