R forcats gss_cat 一般社會調查中的分類變量樣本

gss_cat

gss_cat
#> # A tibble: 21,483 × 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 to 9… Ind,ne… Prot… Sout…      12
#>  2  2000 Divorced         48 White $8000 to 9… Not st… Prot… Bapt…      NA
#>  3  2000 Widowed          67 White Not applic… Indepe… Prot… No d…       2
#>  4  2000 Never married    39 White Not applic… Ind,ne… Orth… Not …       4
#>  5  2000 Divorced         25 White Not applic… Not st… None  Not …       1
#>  6  2000 Married          25 White $20000 - 2… Strong… Prot… Sout…      NA
#>  7  2000 Never married    36 White $25000 or … Not st… Chri… Not …       3
#>  8  2000 Divorced         44 White $7000 to 7… Ind,ne… Prot… Luth…      NA
#>  9  2000 Married          44 White $25000 or … Not st… Prot… Other       0
#> 10  2000 Married          47 White $25000 or … Strong… Prot… Sout…       3
#> # … with 21,473 more rows

fct_count(gss_cat$relig)
#> # A tibble: 16 × 2
#>    f                           n
#>    <fct>                   <int>
#>  1 No answer                  93
#>  2 Don't know                 15
#>  3 Inter-nondenominational   109
#>  4 Native american            23
#>  5 Christian                 689
#>  6 Orthodox-christian         95
#>  7 Moslem/islam              104
#>  8 Other eastern              32
#>  9 Hinduism                   71
#> 10 Buddhism                  147
#> 11 Other                     224
#> 12 None                     3523
#> 13 Jewish                    388
#> 14 Catholic                 5124
#> 15 Protestant              10846
#> 16 Not applicable              0
fct_count(fct_lump(gss_cat$relig))
#> # A tibble: 2 × 2
#>   f              n
#>   <fct>      <int>
#> 1 Protestant 10846
#> 2 Other      10637