从gtsummary摘要中使用group_header时设置tbl_stack文本的格式

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())
  )

​

​