Untitled

library(readxl)
test <- read_excel("D:/123.xlsx")
summary(test)

##     Gender              Height     
##  Length:410         Min.   :145.9  
##  Class :character   1st Qu.:159.9  
##  Mode  :character   Median :165.7  
##                     Mean   :165.9  
##                     3rd Qu.:171.6  
##                     Max.   :208.2

head(test)

## # A tibble: 6 × 2
##   Gender Height
##   <chr>   <dbl>
## 1 男       160.
## 2 男       172.
## 3 男       170.
## 4 男       168.
## 5 男       171.
## 6 男       174.

print(test)

## # A tibble: 410 × 2
##    Gender Height
##    <chr>   <dbl>
##  1 男       160.
##  2 男       172.
##  3 男       170.
##  4 男       168.
##  5 男       171.
##  6 男       174.
##  7 男       167.
##  8 男       179.
##  9 男       167.
## 10 男       175.
## # ℹ 400 more rows

library(moments)

skewness(test$Height)

## [1] 0.4101161

kurtosis(test$Height)

## [1] 4.013246

hist(test$Height)

quantile(test$Height)

##      0%     25%     50%     75%    100% 
## 145.900 159.925 165.700 171.600 208.200

boxplot(test$Height)