---

title: ‘1113210008’ output: html_document date: “2025-12-18”

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


plot(Statisti, Math,
     pch = 19,
     col = "#FFCCCC",
     main = "統計與數學成績相關性分析",
     xlab = "統計成績",
     ylab = "數學成績")

par(mfrow = c(1, 2)) 
hist(Statisti, breaks = 5, col = "#FF9797", main = "統計成績直方圖", xlab = "分數", ylab = "人數")
hist(Math, breaks = 5, col = "#FFDAB9", main = "數學成績直方圖", xlab = "分數", ylab = "人數")

par(mfrow = c(1, 1))


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


barplot(counts, names.arg = categories, main = "大學生最喜歡參加的社團", 
        col = "#64A600", border = "#5A5AAD", las = 1)

pie(counts, 
    labels = paste0(categories, "\n", round(counts/sum(counts)*100, 1), "%"),
    main = "學生參加社團類型比例",
    col = c("#FFE153", "#FF9D6F", "#C4E1E1", "#96FED1", "#CECEFF"))

x_pos <- 1:length(counts)
plot(x_pos, counts, type = "n", xaxt = "n", xlab = "", ylab = "人數", main = "社團參加人數分佈")
segments(x0 = x_pos, y0 = 0, x1 = x_pos, y1 = counts, lwd = 3, col = "gray")
points(x_pos, counts, pch = 19, cex = 2, col = "#00AEAE")
axis(1, at = x_pos, labels = categories)

scores <- c(84, 63, 61, 49, 89, 51, 59, 53, 79, 91)
results <- list(
  "Mean" = mean(scores),
  "Median" = median(scores),
  "SD" = sd(scores),
  "Variance" = var(scores),
  "Q1" = quantile(scores, 0.25)
)
print(results)

## $Mean
## [1] 67.9
## 
## $Median
## [1] 62
## 
## $SD
## [1] 16.25115
## 
## $Variance
## [1] 264.1
## 
## $Q1
##  25% 
## 54.5