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

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 = 16,           
     col = "darkgreen",  
     cex = 1.5)    

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

club_type <- c("娛樂休閒", "知識閱讀", "體育競技", "科學創新", "公益活動")
frequency <- c(185, 82, 36, 28, 25)

# 繪製長條圖
barplot(frequency,
        names.arg = club_type,
        main = ,
        xlab = ,
        ylab = ,
        col = "skyblue",
        border = "darkblue")