如何在R的gtsummary表格中为指定行列单元格着色

要精准定位gtsummary表格中的特定单元格并设置背景色，可使用gtsummary包的modify_table_styling()函数，通过变量/分组匹配或行号列号定位两种方式实现，以下是具体方案：

方法一：按变量和分组定位（推荐，更稳定） #

通过匹配变量名和分组列名来定位目标单元格，不受表格行号列号变化影响：

library(gtsummary)
library(tidyverse)

# 生成基础表格，先将cyl转为因子确保分组正确
tbl <- mtcars %>%
  mutate(cyl = factor(cyl)) %>%
  tbl_summary(by = cyl)

# 为指定单元格设置背景色
tbl %>%
  # 为disp变量对应cyl=6的单元格设置红色背景
  modify_table_styling(
    location = ~ variable == "disp" & column == "cyl_6",
    style = list(cell_fill(color = "red"))
  ) %>%
  # 为wt变量对应cyl=8的单元格设置橙色背景
  modify_table_styling(
    location = ~ variable == "wt" & column == "cyl_8",
    style = list(cell_fill(color = "orange"))
  )

方法二：按行号和列号定位 #

如果明确知道目标单元格的位置，可通过行号、列号直接定位：

tbl %>%
  # 定位第3列（cyl=6）第3行（disp变量）的单元格，设置红色背景
  modify_table_styling(
    location = ~ row_number() == 3 & column_index() == 3,
    style = list(cell_fill(color = "red"))
  ) %>%
  # 定位第4列（cyl=8）第6行（wt变量）的单元格，设置橙色背景
  modify_table_styling(
    location = ~ row_number() == 6 & column_index() == 4,
    style = list(cell_fill(color = "orange"))
  )

注意事项 #

• 可通过tbl$table_body查看表格的底层数据结构，确认变量名、分组列名、行号等信息，避免定位错误。
• column_index()返回的是表格的列序号，从左到右计数（第1列为变量列，第2列开始是分组列）。
• row_number()返回的是表格的行序号，从表格顶部的第一行变量行开始计数。

内容的提问来源于stack exchange，提问作者Stats Iliterate