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()

请参阅下面的输出：

输出

标签： rgtsummary