Untitled

library(readxl)
test <- read_excel("C:/WENZAO/1.xlsx")

head(test)

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

str(test)

## tibble [410 × 2] (S3: tbl_df/tbl/data.frame)
##  $ Gender: chr [1:410] "男" "男" "男" "男" ...
##  $ Height: num [1:410] 160 172 170 168 171 ...

library(moments)
quantile(test$Height)

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

skewness(test$Height)

## [1] 0.4101161

kurtosis(test$Height)

## [1] 4.013246

hist(test$Height)