为 table 添加说明

Add Caption to table

我想在 table 的 top/bottom 处为 table 添加标题。 gt包里有captionfunction吗?

 gt(head(mtcars)) %>%
        tab_header(title="", subtitle="Table 1: Mtcars with gt.") %>%
        tab_options(table.width=pct(90),
                        table.border.top.style=0,
                        row.padding=px(4)) %>%
            tab_style(style=cells_styles(
                          text_align='left',
                          text_color='grey'),
                  locations=cells_title(groups="subtitle"))

我可以通过从 Github.

安装软件包的开发版本来获得 caption 参数
#devtools::install_github("rstudio/gt")
library(gt)

gt(head(mtcars), caption = 'This is table caption') %>%
  tab_header(title="A", subtitle="Table 1: Mtcars with gt.")

没有标题对齐选项似乎很奇怪和不一致(而且很烦人!)。特别是因为 gtsummary 使用“标题”而不是 table 标题的“标题”。

我在另一个线程 (Format caption of gtsummary tables) 中找到了这个解决方法。我们的想法是将标题输入为 html 并在那里进行格式化。

"<div style='text-align: left; font-weight: bold; color: grey'> Table 1. Patient Characteristics</div>"