# NOT RUN {
pivotr(diamonds, cvars = "cut") %>% dtab()
pivotr(diamonds, cvars = c("cut","clarity")) %>% dtab(format = "color_bar")
pivotr(diamonds, cvars = c("cut","clarity"), normalize = "total") %>%
dtab(format = "color_bar", perc = TRUE)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab