Bai Tap 1

rm(list =ls())
library(haven)
library(magrittr)
library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(stringi)
read_sav("C:/Users/Ad min/Desktop/Code R/Learning R course/[ver1.3]NC2.QOJ.Stigma.sav") -> stigma_data

Assignment 1

stigma_data %>% ncol()

## [1] 153

stigma_data %>% nrow()

## [1] 1121

stigma_data %>% dim()

## [1] 1121  153

Assigment 2

stigma_data %>% head()

## # A tibble: 6 x 153
##     STT `D<U+1EA5>uth<U+1EDD>igian`       A1 A2     AEconomicarea    BSex  BAge BMartialstatus
##   <dbl> <date>        <dbl+lb> <chr>      <dbl+lbl> <dbl+l> <dbl>      <dbl+lbl>
## 1     1 2021-05-30    1 [B<U+1EC7>nh~ B<U+1EC7>nh ~ 1 [Ðô th<U+1ECB> lo~ 1 [Nam]    43 1 [Ðã k<U+1EBF>t hôn~
## 2     2 2021-05-31    1 [B<U+1EC7>nh~ B<U+1EC7>nh ~ 6 [Nông thôn] 2 [N<U+1EEF>]     30 1 [Ðã k<U+1EBF>t hôn~
## 3     3 2021-05-31    1 [B<U+1EC7>nh~ B<U+1EC7>nh ~ 6 [Nông thôn] 1 [Nam]    30 1 [Ðã k<U+1EBF>t hôn~
## 4     4 2021-05-31    1 [B<U+1EC7>nh~ B<U+1EC7>nh ~ 6 [Nông thôn] 1 [Nam]    32 4 [Ð<U+1ED9>c thân]  
## 5     5 2021-06-02    1 [B<U+1EC7>nh~ B<U+1EC7>nh ~ 0 [Ðô th<U+1ECB> d<U+1EB7>~ 2 [N<U+1EEF>]     49 1 [Ðã k<U+1EBF>t hôn~
## 6     6 2021-05-31    1 [B<U+1EC7>nh~ B<U+1EC7>nh ~ 1 [Ðô th<U+1ECB> lo~ 2 [N<U+1EEF>]     46 1 [Ðã k<U+1EBF>t hôn~
## # ... with 145 more variables: BEducationallevel <dbl+lbl>,
## #   Professional <dbl+lbl>, Position <dbl+lbl>, Typeofcontract <dbl+lbl>,
## #   Incomes <dbl+lbl>, Yearsofwork <dbl>, TTCSBN <dbl+lbl>, CSTEVTN <dbl+lbl>,
## #   CSTTPL <dbl+lbl>, CSDKBTT <dbl+lbl>, CSRLTTNL <dbl+lbl>,
## #   CSRLTTNCT <dbl+lbl>, CSNC <dbl+lbl>, BBSDK <dbl+lbl>, BCD <dbl+lbl>,
## #   BTC <dbl+lbl>, BCN <dbl+lbl>, CCHNTT <dbl+lbl>, CCDHTTHCB <dbl+lbl>,
## #   CKI <dbl+lbl>, CKII <dbl+lbl>, ThS <dbl+lbl>, TS <dbl+lbl>,
## #   CCNNB2 <dbl+lbl>, CCHNKhac <dbl+lbl>,
## #   Cácch<U+1EE9>ngch<U+1EC9>b<U+1EB1>ngc<U+1EA5>phi<U+1EC7>ncóc<U+1EE7>ab<U+1EA1>nCâuh<U+1ECF>inhi<U+1EC1>ul <chr>, CCCME <chr>,
## #   CCTLHLS <chr>, B<U+1EA1>ndãcóch<U+1EE9>ngch<U+1EC9>dàot<U+1EA1>ocáckhóah<U+1ECD>cliênquanv<U+1EA5>nd <chr>,
## #   Th<U+1EDD>igianthamgiakhóah<U+1ECD>cs<U+1EE9>ckh<U+1ECF>etâmth<U+1EA7>nl<U+1EA7>ng<U+1EA7>nnh<U+1EA5>t <chr>,
## #   Ð<U+1ECB>adi<U+1EC3>mh<U+1ECD>cdàot<U+1EA1>ob<U+1EDF>iÐ<U+1EA1>ih<U+1ECD>c <chr>, Ð<U+1ECB>adi<U+1EC3>mh<U+1ECD>cb<U+1EDF>iCaod<U+1EB3>ng <chr>,
## #   Ðàot<U+1EA1>ob<U+1EDF>ikhóah<U+1ECD>ct<U+1EA1>ib<U+1EC7>nhvi<U+1EC7>n <chr>, chuat<U+1EEB>ngthamgiakhóah<U+1ECD>c <chr>,
## #   Cácd<U+1ECB>adi<U+1EC3>mdãt<U+1EEB>ngthamgiakhóah<U+1ECD>cCâuh<U+1ECF>inhi<U+1EC1>ul<U+1EF1> <chr>,
## #   Côngvi<U+1EC7>cc<U+1EE5>th<U+1EC3>chamsócs<U+1EE9>ckh<U+1ECF>etâmth<U+1EA7>nCâuh<U+1ECF>inhi <chr>, B1 <dbl+lbl>,
## #   B2 <dbl+lbl>, B3 <dbl+lbl>, B4 <dbl+lbl>, B5 <dbl+lbl>, B6 <dbl+lbl>,
## #   B7 <dbl+lbl>, B8 <dbl+lbl>, B9 <dbl+lbl>, B10 <dbl+lbl>, B11 <dbl+lbl>,
## #   B12 <dbl+lbl>, B13 <dbl+lbl>, B14 <dbl+lbl>, B15 <dbl+lbl>, B16 <dbl+lbl>,
## #   B17 <dbl+lbl>, B18 <dbl+lbl>, B19 <dbl+lbl>, B20 <dbl+lbl>, B21 <dbl+lbl>,
## #   B22 <dbl+lbl>, B23 <dbl+lbl>, B24 <dbl+lbl>, B25 <dbl+lbl>, B26 <dbl+lbl>,
## #   B27 <dbl+lbl>, B28 <dbl+lbl>, B29 <dbl+lbl>, B30 <dbl+lbl>, B31 <dbl+lbl>,
## #   B32 <dbl+lbl>, B33 <dbl+lbl>, B34 <dbl+lbl>, B35 <dbl+lbl>, B36 <dbl+lbl>,
## #   Nguy<U+1EC7>nv<U+1ECD>ngmongmu<U+1ED1>nchongànhtâmth<U+1EA7>n <chr>,
## #   Theob<U+1EA1>nngànhtâmth<U+1EA7>nhi<U+1EC7>nnaydangcónh<U+1EEF>ngràoc<U+1EA3>nnào <chr>,
## #   Theob<U+1EA1>nd<U+1EC3>pháttri<U+1EC3>nngànhtâmth<U+1EA7>nchúngtac<U+1EA7>ncónh<U+1EEF>n <chr>, E1 <dbl+lbl>,
## #   E2 <dbl+lbl>, E3 <dbl+lbl>, E4 <dbl+lbl>, E5 <dbl+lbl>, E6 <dbl+lbl>,
## #   E7 <dbl+lbl>, E8 <dbl+lbl>, E9 <dbl+lbl>, E10 <dbl+lbl>, E11 <dbl+lbl>,
## #   E12 <dbl+lbl>, E13 <dbl+lbl>, E14 <dbl+lbl>, E15 <dbl+lbl>, E16 <dbl+lbl>,
## #   E17 <dbl+lbl>, E18 <dbl+lbl>, E19 <dbl+lbl>, E20 <dbl+lbl>, E21 <dbl+lbl>,
## #   E22 <dbl+lbl>, E23 <dbl+lbl>, E24 <dbl+lbl>, E25 <dbl+lbl>, ...

stigma_data %>% tail()

## # A tibble: 6 x 153
##     STT `D<U+1EA5>uth<U+1EDD>igian`       A1 A2     AEconomicarea    BSex  BAge BMartialstatus
##   <dbl> <date>        <dbl+lb> <chr>      <dbl+lbl> <dbl+l> <dbl>      <dbl+lbl>
## 1  1116 2021-06-11    1 [B<U+1EC7>nh~ B<U+1EC7>nh ~ 2 [Ðô th<U+1ECB> lo~ 2 [N<U+1EEF>]     46 1 [Ðã k<U+1EBF>t hôn~
## 2  1117 2021-06-10    1 [B<U+1EC7>nh~ B<U+1EC7>nh ~ 2 [Ðô th<U+1ECB> lo~ 1 [Nam]    48 1 [Ðã k<U+1EBF>t hôn~
## 3  1118 2021-06-11    1 [B<U+1EC7>nh~ B<U+1EC7>nh ~ 2 [Ðô th<U+1ECB> lo~ 2 [N<U+1EEF>]     31 1 [Ðã k<U+1EBF>t hôn~
## 4  1119 2021-06-11    1 [B<U+1EC7>nh~ B<U+1EC7>nh ~ 2 [Ðô th<U+1ECB> lo~ 2 [N<U+1EEF>]     39 1 [Ðã k<U+1EBF>t hôn~
## 5  1120 2021-06-11    1 [B<U+1EC7>nh~ B<U+1EC7>nh ~ 2 [Ðô th<U+1ECB> lo~ 2 [N<U+1EEF>]     54 1 [Ðã k<U+1EBF>t hôn~
## 6  1121 2021-06-11    1 [B<U+1EC7>nh~ B<U+1EC7>nh ~ 1 [Ðô th<U+1ECB> lo~ 2 [N<U+1EEF>]     25 1 [Ðã k<U+1EBF>t hôn~
## # ... with 145 more variables: BEducationallevel <dbl+lbl>,
## #   Professional <dbl+lbl>, Position <dbl+lbl>, Typeofcontract <dbl+lbl>,
## #   Incomes <dbl+lbl>, Yearsofwork <dbl>, TTCSBN <dbl+lbl>, CSTEVTN <dbl+lbl>,
## #   CSTTPL <dbl+lbl>, CSDKBTT <dbl+lbl>, CSRLTTNL <dbl+lbl>,
## #   CSRLTTNCT <dbl+lbl>, CSNC <dbl+lbl>, BBSDK <dbl+lbl>, BCD <dbl+lbl>,
## #   BTC <dbl+lbl>, BCN <dbl+lbl>, CCHNTT <dbl+lbl>, CCDHTTHCB <dbl+lbl>,
## #   CKI <dbl+lbl>, CKII <dbl+lbl>, ThS <dbl+lbl>, TS <dbl+lbl>,
## #   CCNNB2 <dbl+lbl>, CCHNKhac <dbl+lbl>,
## #   Cácch<U+1EE9>ngch<U+1EC9>b<U+1EB1>ngc<U+1EA5>phi<U+1EC7>ncóc<U+1EE7>ab<U+1EA1>nCâuh<U+1ECF>inhi<U+1EC1>ul <chr>, CCCME <chr>,
## #   CCTLHLS <chr>, B<U+1EA1>ndãcóch<U+1EE9>ngch<U+1EC9>dàot<U+1EA1>ocáckhóah<U+1ECD>cliênquanv<U+1EA5>nd <chr>,
## #   Th<U+1EDD>igianthamgiakhóah<U+1ECD>cs<U+1EE9>ckh<U+1ECF>etâmth<U+1EA7>nl<U+1EA7>ng<U+1EA7>nnh<U+1EA5>t <chr>,
## #   Ð<U+1ECB>adi<U+1EC3>mh<U+1ECD>cdàot<U+1EA1>ob<U+1EDF>iÐ<U+1EA1>ih<U+1ECD>c <chr>, Ð<U+1ECB>adi<U+1EC3>mh<U+1ECD>cb<U+1EDF>iCaod<U+1EB3>ng <chr>,
## #   Ðàot<U+1EA1>ob<U+1EDF>ikhóah<U+1ECD>ct<U+1EA1>ib<U+1EC7>nhvi<U+1EC7>n <chr>, chuat<U+1EEB>ngthamgiakhóah<U+1ECD>c <chr>,
## #   Cácd<U+1ECB>adi<U+1EC3>mdãt<U+1EEB>ngthamgiakhóah<U+1ECD>cCâuh<U+1ECF>inhi<U+1EC1>ul<U+1EF1> <chr>,
## #   Côngvi<U+1EC7>cc<U+1EE5>th<U+1EC3>chamsócs<U+1EE9>ckh<U+1ECF>etâmth<U+1EA7>nCâuh<U+1ECF>inhi <chr>, B1 <dbl+lbl>,
## #   B2 <dbl+lbl>, B3 <dbl+lbl>, B4 <dbl+lbl>, B5 <dbl+lbl>, B6 <dbl+lbl>,
## #   B7 <dbl+lbl>, B8 <dbl+lbl>, B9 <dbl+lbl>, B10 <dbl+lbl>, B11 <dbl+lbl>,
## #   B12 <dbl+lbl>, B13 <dbl+lbl>, B14 <dbl+lbl>, B15 <dbl+lbl>, B16 <dbl+lbl>,
## #   B17 <dbl+lbl>, B18 <dbl+lbl>, B19 <dbl+lbl>, B20 <dbl+lbl>, B21 <dbl+lbl>,
## #   B22 <dbl+lbl>, B23 <dbl+lbl>, B24 <dbl+lbl>, B25 <dbl+lbl>, B26 <dbl+lbl>,
## #   B27 <dbl+lbl>, B28 <dbl+lbl>, B29 <dbl+lbl>, B30 <dbl+lbl>, B31 <dbl+lbl>,
## #   B32 <dbl+lbl>, B33 <dbl+lbl>, B34 <dbl+lbl>, B35 <dbl+lbl>, B36 <dbl+lbl>,
## #   Nguy<U+1EC7>nv<U+1ECD>ngmongmu<U+1ED1>nchongànhtâmth<U+1EA7>n <chr>,
## #   Theob<U+1EA1>nngànhtâmth<U+1EA7>nhi<U+1EC7>nnaydangcónh<U+1EEF>ngràoc<U+1EA3>nnào <chr>,
## #   Theob<U+1EA1>nd<U+1EC3>pháttri<U+1EC3>nngànhtâmth<U+1EA7>nchúngtac<U+1EA7>ncónh<U+1EEF>n <chr>, E1 <dbl+lbl>,
## #   E2 <dbl+lbl>, E3 <dbl+lbl>, E4 <dbl+lbl>, E5 <dbl+lbl>, E6 <dbl+lbl>,
## #   E7 <dbl+lbl>, E8 <dbl+lbl>, E9 <dbl+lbl>, E10 <dbl+lbl>, E11 <dbl+lbl>,
## #   E12 <dbl+lbl>, E13 <dbl+lbl>, E14 <dbl+lbl>, E15 <dbl+lbl>, E16 <dbl+lbl>,
## #   E17 <dbl+lbl>, E18 <dbl+lbl>, E19 <dbl+lbl>, E20 <dbl+lbl>, E21 <dbl+lbl>,
## #   E22 <dbl+lbl>, E23 <dbl+lbl>, E24 <dbl+lbl>, E25 <dbl+lbl>, ...

Assignment 3

stigma_data %>% names -> column_names 
column_names[200]

## [1] NA

column_names[200] co nghia la ta “access” vao vi tri cot bien so 200 cua stigma_data.Do stigma_data %>% nrow() chi ra data.frame co 153 cot nen vi tri so 200 = NA

Assignment 4:

stigma_data %>% select(-STT, -BAge) -> stigma_data_not_STT_BAge

Bai Tap 1

Nguyen Viet Hoang

7/14/2021