dat <- tplyr_table(mtcars, gear) %>%
add_layer(
group_desc(wt, by = vs) %>%
set_format_strings(
"n" = f_str("xx", n),
"sd" = f_str("xx.x", sd, empty = c(.overall = "BLAH")),
"Median" = f_str("xx.x", median),
"Q1, Q3" = f_str("xx, xx", q1, q3),
"Min, Max" = f_str("xx, xx", min, max),
"Missing" = f_str("xx", missing)
) %>%
set_stats_as_columns()
) %>%
build()
Run the code above in your browser using DataLab