088

library(readxl)
data <- read_excel("D:/1113204088/table2_2.xlsx")


str(data)

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