Untitled

library(readxl)

weight <- c(50,55,63,55,67,43,52)

Data<- read_excel("D:/table2.xlsx")


print(Data)

## # 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

summary(Data)

##     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

stem(weight,scale = 2)

## 
##   The decimal point is 1 digit(s) to the right of the |
## 
##   4 | 3
##   4 | 
##   5 | 02
##   5 | 55
##   6 | 3
##   6 | 7