Untitled

# 散佈圖資料
stat_scores <- c(85, 88, 91, 82, 89, 80, 78, 84, 63, 51)
math_scores <- c(88, 94, 86, 92, 85, 80, 78, 90, 60, 55)

# 繪製散佈圖
plot(math_scores, stat_scores,
     xlab = "數學成績",
     ylab = "統計成績",
     main = "班上的數學與統計成績散佈圖",
     pch = 16, col = "blue")

statistic_scores <- c(68, 85, 74, 88, 63, 78, 90, 80, 58, 63)
hist(statistic_scores, 
     main = "統計分數",
     xlab = "分數", 
     ylab = "人數", 
     col = "lightblue", 
     border = "black")

社團類型 <- c("娛樂休樂", "知識閱讀", "體育競技", "科學創新", "公益活動")
次數 <- c(185, 82, 36, 28, 25)
barplot(次數, names.arg = 社團類型, 
        main = "社團類型次數分布", 
        xlab = "社團類型", 
        ylab = "次數", 
        col = "lightblue", 
        border = "black")

社團類型 <- c("娛樂休樂", "知識閱讀", "體育競技", "科學創新", "公益活動")
次數 <- c(185, 82, 36, 28, 25)
pie(次數, labels = 社團類型, main = "大學生最喜歡參加的社團", col = rainbow(length(次數)))

data <- data.frame(
  Name = c("張青松", "王奕翔", "田新雨", "徐麗娜", "張志傑",
           "趙穎睿", "王智強", "宋媛婷", "袁四方", "張建國"),
  Statistic = c(68, 85, 74, 88, 63, 78, 90, 80, 58, 63),
  Math = c(85, 91, 74, 100, 82, 84, 78, 100, 51, 70),
  Japanese = c(84, 63, 61, 49, 89, 51, 59, 53, 79, 91),
  Management = c(89, 76, 80, 71, 78, 60, 72, 73, 91, 85),
  Accounting = c(86, 66, 69, 66, 80, 60, 66, 70, 85, 82)
)
stem(data$Japanese)

## 
##   The decimal point is 1 digit(s) to the right of the |
## 
##   4 | 9
##   5 | 139
##   6 | 13
##   7 | 9
##   8 | 49
##   9 | 1

data <- data.frame(
  Name = c("張青松", "王奕翔", "田新雨", "徐麗娜", "張志傑",
           "趙穎睿", "王智強", "宋媛婷", "袁四方", "張建國"),
  Statistic = c(68, 85, 74, 88, 63, 78, 90, 80, 58, 63),
  Math = c(85, 91, 74, 100, 82, 84, 78, 100, 51, 70),
  Japanese = c(84, 63, 61, 49, 89, 51, 59, 53, 79, 91),
  Management = c(89, 76, 80, 71, 78, 60, 72, 73, 91, 85),
  Accounting = c(86, 66, 69, 66, 80, 60, 66, 70, 85, 82)
)
mean_japanese <- mean(data$Japanese)  # 平均數
median_japanese <- median(data$Japanese)  # 中位數
mode_japanese <- as.numeric(names(sort(table(data$Japanese), decreasing = TRUE)[1]))  # 眾數
sd_japanese <- sd(data$Japanese)  # 標準差
var_japanese <- var(data$Japanese)  # 變異數
q1_japanese <- quantile(data$Japanese, 0.25)  # 第一四分位數
q3_japanese <- quantile(data$Japanese, 0.75)  # 第三四分位數
list(
  平均數 = mean_japanese,
  中位數 = median_japanese,
  眾數 = mode_japanese,
  標準差 = sd_japanese,
  變異數 = var_japanese,
  Q1 = q1_japanese,
  Q3 = q3_japanese
)

## $平均數
## [1] 67.9
## 
## $中位數
## [1] 62
## 
## $眾數
## [1] 49
## 
## $標準差
## [1] 16.25115
## 
## $變異數
## [1] 264.1
## 
## $Q1
##  25% 
## 54.5 
## 
## $Q3
##   75% 
## 82.75

```