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

Author

Frédéric Grelot

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 21186 22537 16783 7581
#> H 27621    NA    NA   NA
aggregate_wide(x, c("region", "gender", "wealth"))
#>           F     H
#> east  21186 27621
#> north 22537    NA
#> south 16783    NA
#> west   7581    NA
aggregate_wide(x, c("region", "gender", "size"))
#>         F    H
#> east  720 1089
#> north 538   NA
#> south 905   NA
#> west  377   NA
aggregate_wide(x, c("region", "gender", "wealth"), mean)
#>              F      H
#> east  5296.500 4603.5
#> north 7512.333     NA
#> south 3356.600     NA
#> west  3790.500     NA