library(magrittr)
t10 <- tplyr_table(mtcars, gear) %>%
add_layer(
group_count(cyl, where = cyl != 6) %>%
set_denom_where(TRUE)
# The denominators will be based on all of the values, including 6
) %>%
build()
Run the code above in your browser using DataLab