Untitled

data <- read.csv("C:/Users/wenzao/Downloads/table1_1.csv")
head(data)

##     Name Statistic Math Japanese Management Accounting
## 1 張青松        68   85       84         89         86
## 2 王奕翔        85   91       63         76         66
## 3 田新雨        74   74       61         80         69
## 4 徐麗娜        88  100       49         71         66
## 5 張志傑        63   82       89         78         80
## 6 趙穎睿        78   84       51         60         60

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

mean_val <- mean(data$Japanese)       # 平均數
median_val <- median(data$Japanese)   # 中位數
mode_val <- as.numeric(names(sort(table(data$Japanese), decreasing=TRUE)[1]))  # 眾數
sd_val <- sd(data$Japanese)           # 標準差
var_val <- var(data$Japanese)         # 變異數
q1_val <- quantile(data$Japanese, 0.25) # Q1 第一四分位數
q3_val <- quantile(data$Japanese, 0.75) # Q3 第三四分位數


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

## 平均數: 67.9

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

## 中位數: 62

cat("眾數:", mode_val, "\n")

## 眾數: 49

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

## 標準差: 16.25115

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

## 變異數: 264.1

cat("Q1 第一四分位數:", q1_val, "\n")

## Q1 第一四分位數: 54.5

cat("Q3 第三四分位數:", q3_val, "\n")

## Q3 第三四分位數: 82.75