如何在gtsummary实验室偏移表中自定义绿色高亮百分比？

一、绿色高亮自定义百分比的实现 #

以R语言常用的gt包为例，核心思路是先基于治疗组样本量计算目标百分比，再将结果插入对应单元格并设置高亮样式：

1. 预处理数据计算百分比 #

先从数据中提取治疗组样本量，批量计算自定义百分比：

library(dplyr)

# 假设原始数据框为lab_data，treatment_n为治疗组样本量列，value为待计算数值列
lab_data <- lab_data %>%
  mutate(custom_pct = (value / treatment_n) * 100)

2. 插入表格并设置高亮 #

用gt的文本转换和样式功能实现格式与高亮：

library(gt)

lab_data %>%
  gt() %>%
  # 格式化自定义百分比为带%的文本
  text_transform(
    locations = cells_body(columns = custom_pct, rows = 你的目标行筛选条件),
    fn = function(x) sprintf("%.1f%%", as.numeric(x))
  ) %>%
  # 设置绿色高亮样式
  tab_style(
    style = list(
      cell_fill(color = "#d4edda"),
      cell_text(weight = "bold")
    ),
    locations = cells_body(columns = custom_pct, rows = 你的目标行筛选条件)
  ) %>%
  # 补充行/列百分比的格式与高亮（对应蓝/橙色框）
  text_transform(
    locations = cells_body(columns = row_pct),
    fn = function(x) sprintf("%.1f%%", as.numeric(x))
  ) %>%
  tab_style(
    style = cell_fill(color = "#cce7ff"),
    locations = cells_body(columns = row_pct)
  ) %>%
  text_transform(
    locations = cells_body(columns = col_pct),
    fn = function(x) sprintf("%.1f%%", as.numeric(x))
  ) %>%
  tab_style(
    style = cell_fill(color = "#ffe0b2"),
    locations = cells_body(columns = col_pct)
  )

若使用flextable（兼容Office格式），逻辑一致：先计算百分比，再用bg()设置背景色、compose()替换文本。

二、构建实验室偏移表的更优方法 #

1. 前置数据处理，简化表格逻辑 #

提前用dplyr完成所有百分比计算，避免在表格包中做复杂运算：

# 批量计算行百分比（按行分组）
lab_data <- lab_data %>%
  group_by(row_group) %>%
  mutate(row_pct = (value / sum(value)) * 100) %>%
  ungroup()

# 批量计算列百分比（按列分组）
lab_data <- lab_data %>%
  group_by(col_group) %>%
  mutate(col_pct = (value / sum(value)) * 100) %>%
  ungroup()

2. 按需选择表格工具 #

• 需专业医学格式/交互性：选gt，内置医学表格适配样式，支持PDF/HTML导出。
• 需兼容Word/Excel：选flextable，可直接导出至Office文档，样式调整灵活。
• 快速生成基础表格：选kableExtra，语法简洁，适合快速迭代。

3. 模块化代码，提升可维护性 #

将流程拆分为数据处理、表格构建、导出三个模块：

# 数据处理模块
process_lab_data <- function(raw_data) {
  raw_data %>%
    mutate(custom_pct = (value / treatment_n) * 100) %>%
    group_by(row_group) %>%
    mutate(row_pct = (value / sum(value)) * 100) %>%
    ungroup() %>%
    group_by(col_group) %>%
    mutate(col_pct = (value / sum(value)) * 100) %>%
    ungroup()
}

# 表格构建模块
build_lab_table <- function(processed_data) {
  processed_data %>%
    gt() %>%
    # 此处添加样式、格式转换逻辑
    ...
}

# 导出模块
export_lab_table <- function(table_obj, output_path) {
  gtsave(table_obj, output_path)
}

# 调用流程
processed_data <- process_lab_data(raw_lab_data)
final_table <- build_lab_table(processed_data)
export_lab_table(final_table, "lab_offset_table.html")

三、常见问题排查 #

• 自定义百分比计算错误：检查treatment_n是否为对应行的治疗组样本量，而非全局总样本量。
• 高亮位置偏差：确认rows参数的筛选条件（如row_group == "特定分组"）是否精准。

内容的提问来源于stack exchange，提问作者Ranjan Karmakar