math <- c(85, 91, 74, 100, 82, 84, 78, 100, 51, 70)

hist(math,
     main = "數學分數直方圖",
     xlab = "Math Score",
     ylab = "Frequency",
     col = "lightblue",
     border = "white")