r语言 - 在gtsummary中使用tbl_merge后变量标签不改变

Question

我不能改变变量标签"当我使用tbl_merge如何更换标签?label=list()在tbl_merge中不起作用* .

Table.7<-cov %>% 
select(status,sex,ht,dm,chd,ca,pneu,copd,ards1)
label=list(sex="Sex", 
ht="Hypertension",
dm="Diabetes",
chd="Cardiac Dieases",
ca="Cancer", 
pneu="Pneumonia", 
asthma= "Asthma",
copd="COPD", 
ards1="ARDS")
tb_u<-tbl_uvregression(
method = glm,
data = Table.7,
y = status, 
method.args = list(family = binomial(link = logit)),
exponentiate = TRUE
)

tb_m<- glm(status ~ ht+sex+dm+chd+ca+pneu+copd+ards1,data=Table.7,
family = binomial(link = logit)) %>%
tbl_regression(exponentiate = TRUE,
(attr(Table.7$sex, "Sex1")) )
tbl_merge(list(tb_u, tb_m),
tab_spanner = c("**Univariate**", "**Multivariate**")) %>% 
bold_labels() %>% 
as_flex_table()

请看下面的输出:

输出

Answer 1

可以在tbl_regression中使用label而不是tbl_merge

tb_u<-tbl_uvregression(
method = glm,
data = Table.7,
y = status, 
method.args = list(family = binomial(link = logit)),
exponentiate = TRUE,
label = label
)