在 gtsummary 的 tbl_regression 中抑制 table header

Question

更新以澄清和表明意图：

相关问题在这里，@Daniel D. Sjoberg 已经提供了正确和专业的答案。

但我想尝试一下是否可行:

x <- tbl_merge(list(t1, t2, t3 ,t4))

y <- x %>% 
  tbl_split(variables = c(age, ttdeath, response, death, stage, grade))

使用这段代码，我将 table 分成一行 tables:

y[[1]]

y[[2]]

等等.....

现在： 我想删除每个脚注和 header 并将它们按定义的顺序合并在一起。本质上就是分裂的反转？！

感谢您的时间和精力！

第一题：

利用 gtsummary 中的 tbl_regression() 函数，我们可以制作 table.

通过添加 modify_footnote(everything() ~ NA, abbreviation = TRUE) 我们可以省略脚注。

喜欢这里：来自：

library(dplyr)
library(gtsummary)

my_table <-
  lm(mpg ~ disp, mtcars) %>%
  tbl_regression(exponentiate = FALSE) %>%
  modify_footnote(everything() ~ NA, abbreviation = TRUE)
my_table

结果：

我的问题：

如何删除此 table 的 header 部分以获得此输出：

如果可能，应该可以使用 modify_header 或 modify_table_styling()?!

背后是有道理的。

最终目标是拆分一个gtsummary的每个元素table 并按给定顺序重新排列它们

Answer 1

使用 huxtable 后端的简单方法：

ht <- as_hux_table(my_table)
ht <- ht[2,] # just row 2

# and to bind multiple huxtables together, do e.g.
rbind(ht, ht2, ht3)

在此之后，您可以使用 huxtable 函数适当地编辑样式。

Answer 2

拆分 table 后，您可以 re-assemble 将其与 tbl_stack() 拆分。无需担心 headers 和脚注……它们会自行解决。 tbl_stack(list(y[[2)]], y[[1)]]).

在 gtsummary 的 tbl_regression 中抑制 table header

Supress table header in tbl_regression of gtsummary

r

gtsummary

gt