如何在gtsummary包展示两组差异结果时删除CI置信区间列

你之前直接修改table_styling$header属性没有效果，是因为该属性属于包的内部列表结构，不建议用户直接手动修改，需要使用gtsummary提供的公开列操作函数实现需求，以下是两种可行方案：

方案1：生成完整表格后隐藏CI列 #

使用modify_column_hide()函数直接隐藏add_difference()默认生成的ci列，操作最简单，不会影响差异值、p值的计算逻辑：

library(gtsummary)

# 基础示例表格
diff_tbl <- trial %>%
  select(trt, age, grade, marker) %>%
  tbl_summary(by = trt) %>%
  add_difference()

# 隐藏CI列
diff_tbl %>%
  modify_column_hide(columns = ci)

方案2：生成差异结果时直接不输出CI列 #

如果不需要计算CI，可以在调用add_difference()时通过statistic参数自定义输出的统计量，仅保留差异值，从根源上避免生成CI列：

trial %>%
  select(trt, age, grade, marker) %>%
  tbl_summary(by = trt) %>%
  add_difference(
    # 连续变量仅输出差异值
    statistic = all_continuous() ~ "{estimate}",
    # 分类变量仅输出差异值
    statistic = all_categorical() ~ "{estimate}"
  )

内容的提问来源于stack exchange，提问作者Gabriel Konzen