11.3 Counting

head(gss_cat)
## # A tibble: 6 x 9
##    year marital         age race  rincome  partyid   relig  denom  tvhours
##   <int> <fct>         <int> <fct> <fct>    <fct>     <fct>  <fct>    <int>
## 1  2000 Never married    26 White $8000 t… Ind,near… Prote… South…      12
## 2  2000 Divorced         48 White $8000 t… Not str … Prote… Bapti…      NA
## 3  2000 Widowed          67 White Not app… Independ… Prote… No de…       2
## 4  2000 Never married    39 White Not app… Ind,near… Ortho… Not a…       4
## 5  2000 Divorced         25 White Not app… Not str … None   Not a…       1
## 6  2000 Married          25 White $20000 … Strong d… Prote… South…      NA

dplyr::count(gss_cat, marital)
## # A tibble: 6 x 2
##   marital           n
##   <fct>         <int>
## 1 No answer        17
## 2 Never married  5416
## 3 Separated       743
## 4 Divorced       3383
## 5 Widowed        1807
## 6 Married       10117

gss_cat %>%
    dplyr::count(marital)
## # A tibble: 6 x 2
##   marital           n
##   <fct>         <int>
## 1 No answer        17
## 2 Never married  5416
## 3 Separated       743
## 4 Divorced       3383
## 5 Widowed        1807
## 6 Married       10117