flatten tabyl that is 3d

gistfile1.txt

tabyl_flatten <- function(tabyl3d){
  
  my_tibble <- tibble()
  
  for (i in 1:length(tabyl3d)){
    
    meta_name <- names(tabyl3d)[i]
  
    my_tibble %>% 
    bind_rows(tabyl3d[[i]] %>% 
    mutate(category = meta_name, .before = 1)) ->
    my_tibble
    
  }
  
  my_tibble
}

tidytitanic::tidy_titanic %>% 
  janitor::tabyl(sex, class, age) %>% 
  tabyl_flatten()

also, unpivot?

tidytitanic::tidy_titanic %>%
janitor::tabyl(sex, class, age) %>%
janitor::adorn_totals(where = c("row","col")) %>%
janitor::adorn_percentages(denominator = "col") %>%
janitor::adorn_pct_formatting(digits = 0) %>%
janitor::adorn_ns(position = "front") %>%
tabyl_flatten() %>%
group_by(category) %>%
gt::gt()