require(dplyr, quietly = TRUE)
data(Oncho)
Oncho %>%
select(area, mf) %>%
cross_tbl(by = "area") %>%
theme_pubh(2)
data(Bernard)
t1 <- estat(~ apache | fate, data = Bernard)
t2 <- estat(~ o2del | fate, data = Bernard)
rbind(t1, t2) %>%
as_hux() %>%
theme_pubh(c(1, 3))
Run the code above in your browser using DataLab