Statistic <- c(68, 85, 74, 88, 63, 78, 90, 80, 58, 63)
Math <- c(85, 91, 74, 100, 82, 84, 78, 100, 51, 70)

# 畫出數學成績直方圖
hist(Math,
     main = "數學成績直方圖",
     xlab = "數學成績",
     ylab = "人數",
     col = "lightblue",
     border = "black")