A wrapper to aggregate that gives a wide view of results

A wrapper to aggregate that gives a wide view of results

Usage

aggregate_wide(x, what, fun = sum)

Arguments

x

data.frame

what

vector of length

fun

function

Value

A matrix of result

Examples

x = data.frame(
    gender = sample(c("H", "F"), 20, replace = TRUE),
    region = sample(c("east", "west", "south", "north"), 20, replace = TRUE),
    wealth = round(runif(20) * 10000),
    size = round(runif(20) * 50 + 150)
)
aggregate_wide(x)
#>    east north south  west
#> F 20811  9117  6123 25159
#> H 21502  9188    NA 16370
aggregate_wide(x, c("region", "gender", "wealth"))
#>           F     H
#> east  20811 21502
#> north  9117  9188
#> south  6123    NA
#> west  25159 16370
aggregate_wide(x, c("region", "gender", "size"))
#>         F   H
#> east  520 894
#> north 313 159
#> south 557  NA
#> west  712 357
aggregate_wide(x, c("region", "gender", "wealth"), mean)
#>             F      H
#> east  6937.00 4300.4
#> north 4558.50 9188.0
#> south 2041.00     NA
#> west  6289.75 8185.0