Untitled

Data2 <- read.csv("D:/TABLE.csv")

Data2

##      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
## 7  王智強        90   78       59         72         66
## 8  宋媛婷        80  100       53         73         70
## 9  袁四方        58   51       79         91         85
## 10 張建國        63   70       91         85         82

mean(Data2$Japanese)

## [1] 67.9

median(Data2$Japanese)

## [1] 62

sd(Data2$Japanese)

## [1] 16.25115

var(Data2$Japanese) 

## [1] 264.1

sd(Data2$Japanese)

## [1] 16.25115

Q1 <- quantile(Data2$Japanese, 1 / 4)
Q1

##  25% 
## 54.5