A table function to use with magrittr pipes

Accepts a data frame as input and computes a contingency table for direct use in combination with the magrittr package.

categorize(x, ...)

Arguments

x	A data frame
...	A formula (as in xtabs) or one or more objects which can be interpreted as factors (including character strings), or a list (or data frame) whose components can be so interpreted.

Value

A table (possibly as an xtabs class if a model formula was used)

Details

categorize is a wrapper to xtabs or table such that a data frame can be given as the first argument.

Examples

if (requireNamespace("magrittr", quietly = TRUE)) {
    library(magrittr)

    esoph %>% categorize(alcgp, agegp)
    esoph %>% categorize(~ alcgp + agegp)
}
#>            agegp
#> alcgp       25-34 35-44 45-54 55-64 65-74 75+
#>   0-39g/day     4     4     4     4     4   3
#>   40-79         4     4     4     4     3   4
#>   80-119        3     4     4     4     4   2
#>   120+          4     3     4     4     4   2