Untitled

tmp <- data.frame(Student_ID=c(1,2,3,4,5),
                  name=c("Helen", "Lun", "Leon", "Kevin", "Tommy"),
                  score=c(80,36, 88.9, 97.5, 60))
tmp

##   Student_ID  name score
## 1          1 Helen  80.0
## 2          2   Lun  36.0
## 3          3  Leon  88.9
## 4          4 Kevin  97.5
## 5          5 Tommy  60.0

library(readxl)
data2 <- read_excel("D:/1.xlsx")


str(data2)

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

hist(data2$Height)