使用gt函数样式gt汇总合并表
使用gt函数样式gt汇总合并表
提问于 2022-11-10 15:28:16
我一直在使用as_gt()函数来格式化我的gtsummary表，每个表都能很好地工作。但是，当试图将表(tbl_merge)合并在一起时，会出现以下错误：
Error: Error in argument 'x='. Expecting object of class 'gtsummary'
无论将gt格式选项提供给每个表，还是只向合并的对象提供相同的错误，都会发生这种情况。对解决办法有什么想法吗？下面是复古。
library(survival)
library(tidyverse)
library(gt)
library(gtsummary)
# Works fine for individual tbls
t1 <-
glm(response ~ trt + grade + age, trial, family = binomial) %>%
tbl_regression(exponentiate = TRUE) %>%
as_gt() %>%
gt::tab_options(table.font.names = "Times New Roman")
t1
t2 <-
coxph(Surv(ttdeath, death) ~ trt + grade + age, trial) %>%
tbl_regression(exponentiate = TRUE)
# Error appears
tbl_merge_ex1 <-
tbl_merge(
tbls = list(t1, t2),
tab_spanner = c("**Tumor Response**", "**Time to Death**") %>%
as_gt() %>%
gt::tab_options(table.font.names = "Times New Roman")
)
Error: Error in argument 'x='. Expecting object of class 'gtsummary'回答 1
Stack Overflow用户
回答已采纳
发布于 2022-11-10 15:37:32
您需要删除所有as_gt()，直到合并结束为止，如下所示：
library(survival)
library(tidyverse)
library(gt)
library(gtsummary)
t1 <-
glm(response ~ trt + grade + age, trial, family = binomial) %>%
tbl_regression(exponentiate = TRUE)
t2 <-
coxph(Surv(ttdeath, death) ~ trt + grade + age, trial) %>%
tbl_regression(exponentiate = TRUE)
tbl_merge_ex1 <-
tbl_merge(
tbls = list(t1, t2),
tab_spanner = c("**Tumor Response**", "**Time to Death**")
) %>%
as_gt() %>%
gt::tab_options(table.font.names = "Times New Roman")页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/74391470
复制相关文章
相似问题
腾讯云开发者
