如何结合优势比和置信区间

Question

我正在尝试将 OR 和置信区间组合在一列中，以实现以下结果 1.10(0.52,2.29)

library(gtsummary)

trial %>% 
  select(response, grade) %>% 
  tbl_uvregression(
    method = glm,
    y = response,
    method.args = list(family = binomial),
    exponentiate = TRUE
  )

Answer 1

您可以使用modify_table_styling() function 合并两列或多列。 下面的例子！

library(gtsummary)
packageVersion("gtsummary")
#> [1] '1.4.0'

tbl <-
  trial %>% 
  select(response, grade) %>% 
  tbl_uvregression(
    method = glm,
    y = response,
    method.args = list(family = binomial),
    exponentiate = TRUE
  ) %>%
  modify_table_styling(
    columns = estimate,
    rows = !is.na(ci),
    cols_merge_pattern = "{estimate} ({ci})"
  ) %>%
  modify_header(estimate ~ "**OR (95% CI)**") %>%
  modify_footnote(estimate ~ "OR = Odds Ratio, CI = Confidence Interval",
                  abbreviation = TRUE)

^{由代表 package (v2.0.0) 于 2021 年 5 月 3 日创建}