优先tableGrob方案 #

核心思路是直接给tableGrob的主题核心区域指定动态背景色矩阵，替代全局统一的主题设置，确保颜色信息精准对应目标单元格：

1. 保留颜色标记列或生成对应表格结构的颜色矩阵
2. 自定义tableGrob主题，将核心区域的背景色绑定到颜色矩阵
3. 传入自定义主题生成tableGrob

代码示例 #

library(gridExtra)
library(dplyr)

# 模拟带阈值和颜色标记的数据
df <- tibble(
  Parameter = c("A", "B", "C", "D"),
  ParameterValue = c(5, 15, 25, 35),
  LDL = 10,
  UDL = 30
) %>%
  mutate(colors = case_when(
    ParameterValue < LDL ~ "red",
    ParameterValue > UDL ~ "red",
    TRUE ~ "white"
  ))

# 提取表格展示用的数据
df_table <- df %>% select(Parameter, ParameterValue, LDL, UDL)

# 构建背景色矩阵：仅给ParameterValue列对应单元格设置颜色，其余用白色
bg_matrix <- matrix("white", nrow = nrow(df_table), ncol = ncol(df_table))
bg_matrix[, 2] <- df$colors  # 第二列为ParameterValue列

# 自定义tableGrob主题
custom_theme <- ttheme_minimal(
  core = list(
    bg = list(fill = bg_matrix, col = NA)  # fill绑定颜色矩阵，col去除边框
  )
)

# 生成带动态背景色的tableGrob
tg <- tableGrob(df_table, theme = custom_theme)

# 查看效果
grid.draw(tg)

如果需要给表头或其他列设置动态颜色，只需扩展bg_matrix的对应行/列，或在主题中设置header$bg参数即可。

替代方案：gt包（兼顾便捷性与ggplot对齐） #

若觉得tableGrob的矩阵操作繁琐，可使用gt包，它支持直观的单元格样式设置，且能转换为grob对象与ggplot对齐：

代码示例 #

library(gt)
library(patchwork)
library(ggplot2)

# 构建带条件背景色的gt表格
gt_table <- df %>%
  select(Parameter, ParameterValue, LDL, UDL) %>%
  gt() %>%
  tab_style(
    style = cell_fill(color = "red"),
    locations = cells_body(
      columns = ParameterValue,
      rows = ParameterValue < LDL | ParameterValue > UDL
    )
  )

# 转换为grob对象，用于和ggplot组合
gt_grob <- gt::as.gtable(gt_table)

# 与ggplot对齐展示示例
p <- ggplot(mtcars, aes(wt, mpg)) + geom_point()
wrap_plots(p, gt_grob, ncol = 1)

内容的提问来源于stack exchange，提问作者Molly Westbrook