library(dplyr)
mtcars <- mtcars %>%
mutate_all(as.character)
t <- tplyr_table(mtcars, gear) %>%
add_layer(
group_count(cyl) %>%
keep_levels("4", "8") %>%
set_denom_where(cyl %in% c("4", "8"))
) %>%
build()
Run the code above in your browser using DataLab