Untitled

library(readxl)

## Warning: 套件 'readxl' 是用 R 版本 4.4.3 來建造的

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

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

library(moments)

mean(test$Height)

## [1] 165.869

median(test$Height)

## [1] 165.7

hist(test$Height)

skewness(test$Height)

## [1] 0.4101161

quantile(test$Height)

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

boxplot(test$Height)