R forcats fct_count 計算因子中的條目數

fct_count(f, sort = FALSE, prop = FALSE)

f <- factor(sample(letters)[rpois(1000, 10)])
table(f)
#> f
#>   a   b   c   d   e   g   h   j   k   m   n   o   p   q   r   u   v   x 
#> 147 125  34   9  22  81  33   5  56  79 110   7   8   2   1 139   1  86 
#>   y   z 
#>  13  42 
fct_count(f)
#> # A tibble: 20 × 2
#>    f         n
#>    <fct> <int>
#>  1 a       147
#>  2 b       125
#>  3 c        34
#>  4 d         9
#>  5 e        22
#>  6 g        81
#>  7 h        33
#>  8 j         5
#>  9 k        56
#> 10 m        79
#> 11 n       110
#> 12 o         7
#> 13 p         8
#> 14 q         2
#> 15 r         1
#> 16 u       139
#> 17 v         1
#> 18 x        86
#> 19 y        13
#> 20 z        42
fct_count(f, sort = TRUE)
#> # A tibble: 20 × 2
#>    f         n
#>    <fct> <int>
#>  1 a       147
#>  2 u       139
#>  3 b       125
#>  4 n       110
#>  5 x        86
#>  6 g        81
#>  7 m        79
#>  8 k        56
#>  9 z        42
#> 10 c        34
#> 11 h        33
#> 12 e        22
#> 13 y        13
#> 14 d         9
#> 15 p         8
#> 16 o         7
#> 17 j         5
#> 18 q         2
#> 19 r         1
#> 20 v         1
fct_count(f, sort = TRUE, prop = TRUE)
#> # A tibble: 20 × 3
#>    f         n     p
#>    <fct> <int> <dbl>
#>  1 a       147 0.147
#>  2 u       139 0.139
#>  3 b       125 0.125
#>  4 n       110 0.11 
#>  5 x        86 0.086
#>  6 g        81 0.081
#>  7 m        79 0.079
#>  8 k        56 0.056
#>  9 z        42 0.042
#> 10 c        34 0.034
#> 11 h        33 0.033
#> 12 e        22 0.022
#> 13 y        13 0.013
#> 14 d         9 0.009
#> 15 p         8 0.008
#> 16 o         7 0.007
#> 17 j         5 0.005
#> 18 q         2 0.002
#> 19 r         1 0.001
#> 20 v         1 0.001