1113210022

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

Statistic <- c(68, 85, 74, 88, 63, 78, 90, 80, 58, 63)


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

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

barplot(counts,
        names.arg = categories,
        main = "長條圖",
        col = "lightgreen",
        ylab = "次數")

pie(counts, labels = categories, main="圓餅圖",
    col = c("skyblue","mediumpurple","lightpink2","lightgoldenrod","gray"))

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


colors <- "steelblue"


plot(frequency,
     type = "p",
     pch = 16,
     col = colors,
     xaxt = "n",
     xlab = "社團類型",
     ylab = "次數",
     main = "大學生最喜歡參加的社團棒棒糖圖",
     cex = 1.5)


segments(1:length(frequency), 0, 1:length(frequency), frequency, col = colors, lwd = 2)


axis(1, at = 1:length(club_type), labels = club_type, las = 2)

data <- read.csv("D:/table1_1.csv")
japanese_data <- data$Japanese
mean_japanese <- mean(japanese_data)
median_japanese <- median(japanese_data)
sd_japanese <- sd(japanese_data)
var_japanese <- var(japanese_data)
q1_japanese <- quantile(japanese_data, 0.25)

cat("平均數: ", mean_japanese, "\n")

## 平均數:  77.5

cat("中位數: ", median_japanese, "\n")

## 中位數:  77

cat("標準差: ", sd_japanese, "\n")

## 標準差:  9.300538

cat("變異數: ", var_japanese, "\n")

## 變異數:  86.5

cat("Q1 (25%): ", q1_japanese, "\n")

## Q1 (25%):  72.25