When I knit these two tables they appear side by side.
What can I do to split them vertically, one for each group of c?
knitr::opts_chunk$set(echo = FALSE)
library(tidyverse)
library(janitor)
library(knitr)
df <- tibble(a = c(1, 2, 1, 2, 1, 2, 1, 2),
b = c(3, 3, 4, 3, 3, 3, 4, 4),
c = c(1, 1, 1, 1, 2, 2, 2, 2))
df %>% tabyl(a, b, c) %>%
adorn_totals(c("row", "col")) %>%
kable()
Try purrr::walk2 or purrr::map to call kable on each of the tabyls in the 3-way list. You'll also need to put
```{r, results='asis'}
in the RMarkdown chunk header.
df %>% tabyl(a, b, c) %>%
adorn_totals(c("row", "col")) %>%
walk2(names(.), ~ print(kable(.x, caption = .y)))
Other aspects of this problem are discussed in the GitHub issues for both the janitor and knitr packages in the threads I linked.