Untitled

library(readxl)
test <- read_excel("D:/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)