trial %>% tbl_summary(by = trt) %>% bold_labels() %>% as_kable() #> #> #> |**Characteristic** |**Drug A**, N = 98 |**Drug B**, N