使用 gtsummary 中的 tbl_stack 时格式化 group_header 文本

Question

我正在尝试使用 gtsummary 包中的 tbl_stack 函数，但使用 group_header 参数的输出文本在视觉上与其余标签过于相似。理想情况下，我想用粗体、下划线或更改大小来格式化文本，以明确我正在显示一个单独的部分。有没有办法在 gtsummary 包中完成 group_header 文本格式化？

在下面的示例中（取自本期：https://github.com/ddsjoberg/gtsummary/issues/669），理想情况下，我希望“人口统计”和“实验室价值”这两个词用粗体显示。

library(gtsummary)

tt <-
  trial %>%
  select(trt, response, age) %>%
  tbl_summary(by = trt, missing = "no") 

# stacking two tbl_summary objects with header between
tbl_stack(list(tt, tt), group_header = c("Demographics", "Lab Values"))

Answer 1

{gt} 包中提供了这些样式更改。使用 as_gt() 将 {gtsummary} 表转换为 {gt}，然后使用 {gt} 样式函数。下面的粗体示例！

library(gtsummary)

tt <-
  trial %>%
  select(trt, response, age) %>%
  tbl_summary(by = trt, missing = "no") 

# stacking two tbl_summary objects with header between
tbl_stack(list(tt, tt), group_header = c("Demographics", "Lab Values")) %>%
  as_gt() %>%
  gt::tab_style(
    style = gt::cell_text(weight = "bold"),
    locations = gt::cells_row_groups(groups = everything())
  )