gsummary 表的格式标题

Question

希望这不是我遗漏的很明显的东西，但我很难找到如何格式化 gtsummary tables 的标题。

我正在尝试重现此处找到的 table。我喜欢左对齐的灰色标题：https://www.danieldsjoberg.com/gtsummary/articles/tbl_summary.html#gtsummary-functions-to-format-table

我正在使用以下代码，但标题 Table 1. Patient Characteristics 显示为居中且为黑色墨水，但在示例中为左对齐且为灰色。

如何格式化 gtsummary tables 的标题？

library(gtsummary)
trial2 <- trial %>% select(trt, age, grade)

trial2 %>%
  tbl_summary(by = trt) %>%
  add_p(pvalue_fun = ~style_pvalue(.x, digits = 2)) %>%
  add_overall() %>%
  add_n() %>%
  modify_header(label ~ "**Variable**") %>%
  modify_spanning_header(c("stat_1", "stat_2") ~ "**Treatment Received**") %>%
  modify_footnote(
    all_stat_cols() ~ "Median (IQR) or Frequency (%)"
  ) %>%
  modify_caption("**Table 1. Patient Characteristics**") %>%
  bold_labels()

Answer 1

按照@mike 的建议，我会post 在这里回答，这样其他人更容易找到。

正如您在下面的代码中看到的，您可以在其中使用一些 css 样式 modify_caption().

library(gtsummary)
trial2 <- trial %>% select(trt, age, grade)

trial2 %>%
  tbl_summary(by = trt) %>%
  add_p(pvalue_fun = ~style_pvalue(.x, digits = 2)) %>%
  add_overall() %>%
  add_n() %>%
  modify_header(label ~ "**Variable**") %>%
  modify_spanning_header(c("stat_1", "stat_2") ~ "**Treatment Received**") %>%
  modify_footnote(
    all_stat_cols() ~ "Median (IQR) or Frequency (%)"
  ) %>%
  modify_caption("**Table 1. Patient Characteristics**") %>%
  bold_labels() %>% 
  modify_caption("<div style='text-align: left; font-weight: bold; color: grey'> Table 1. Patient Characteristics</div>")

gsummary 表的格式标题

Format caption of gtsummary tables

gtsummary