# NOT RUN {
library(dplyr)
library(freqtables)
data(mtcars)
# One-way frequency tables with defaults
mtcars %>%
freq_table(am) %>%
freq_format(
recipe = "percent (lcl - ucl)",
name = "percent_95",
digits = 2
) %>%
select(var, cat, percent_95)
#> # A tibble: 2 x 3
#> var cat percent_95
#> <chr> <chr> <chr>
#> 1 am 0 59.38 (40.94 - 75.50)
#> 2 am 1 40.62 (24.50 - 59.06)
# Two-way frequency tables with defaults
mtcars %>%
freq_table(am, cyl) %>%
freq_format(
recipe = "percent_row (lcl_row - ucl_row)",
name = "percent_95",
digits = 2
) %>%
select(1:4, percent_95)
#> # A tibble: 6 x 5
#> row_var row_cat col_var col_cat percent_95
#> <chr> <chr> <chr> <chr> <chr>
#> 1 am 0 cyl 4 15.79 (4.78 - 41.20)
#> 2 am 0 cyl 6 21.05 (7.58 - 46.44)
#> 3 am 0 cyl 8 63.16 (38.76 - 82.28)
#> 4 am 1 cyl 4 61.54 (32.30 - 84.29)
#> 5 am 1 cyl 6 23.08 (6.91 - 54.82)
#> 6 am 1 cyl 8 15.38 (3.43 - 48.18)
# }
Run the code above in your browser using DataLab