使用来自 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} table 转换为 {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())
  )

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

Formatting group_header text when using tbl_stack from gtsummary

r

gtsummary