Bài tập môn định tính

library(readxl)
datadt <- read_excel("C:/data/datadt.xlsx")
datadt

## # A tibble: 10,127 × 8
##      age job   marital default housing loan  term_deposit Total_Relationship_C…¹
##    <dbl> <chr> <chr>   <chr>   <chr>   <chr> <chr>                         <dbl>
##  1    58 mana… married no      yes     no    no                                5
##  2    44 tech… single  no      yes     no    no                                6
##  3    33 entr… married no      yes     yes   no                                4
##  4    47 blue… married no      yes     no    no                                3
##  5    33 unkn… single  no      no      no    no                                5
##  6    35 mana… married no      yes     no    no                                3
##  7    28 mana… single  no      yes     yes   no                                6
##  8    42 entr… divorc… yes     yes     no    no                                2
##  9    58 reti… married no      yes     no    no                                5
## 10    43 tech… single  no      yes     no    no                                6
## # ℹ 10,117 more rows
## # ℹ abbreviated name: ¹​Total_Relationship_Count