如何用R语言为表格单元格设置基于行级范围的条件样式？

要实现每行根据min和max列的范围给b、c列设置条件样式，你可以用kableExtra的cell_spec()函数配合dplyr的逐行处理（rowwise()）来完成。下面是完整的示例代码，包含两种样式选项（文字变红/背景变红）：

代码示例 #

首先确保你加载了所需的包：

library(dplyr)
library(kableExtra)

然后处理数据并生成带样式的表格：

# 原始数据
a <- c('A', 'B', 'C', 'D', 'E')
b <- c(20, 25, 40, 55, 60)
c <- c(60, 30, 80, 50, 60)
min <- c(15, 20, 40, 55, 55)
max <- c(25, 30, 50, 65, 65)
df <- data.frame(a, b, c, min, max)

# 逐行处理，给超出范围的单元格添加样式
df_styled <- df %>%
  rowwise() %>%
  mutate(
    # 选项1：超出范围的文字变红
    b = cell_spec(b, "html", color = ifelse(b < min | b > max, "red", "black")),
    c = cell_spec(c, "html", color = ifelse(c < min | c > max, "red", "black")),
    # 选项2：超出范围的单元格背景变红（把上面两行注释掉，打开下面两行即可）
    # b = cell_spec(b, "html", background = ifelse(b < min | b > max, "#ffcccc", "white")),
    # c = cell_spec(c, "html", background = ifelse(c < min | c > max, "#ffcccc", "white"))
  ) %>%
  ungroup() %>%
  select(a, b, c) # 只保留需要展示的列

# 生成并美化表格
table.df <- df_styled %>%
  kable("html", escape = F) %>% # escape=F很重要，不然样式会被转义
  kable_styling(bootstrap_options = "striped", full_width = F, position = "left")

# 查看结果
table.df

关键部分解释 #

1. rowwise()：因为每一行的min和max范围是独立的，必须逐行判断b、c列的值是否在当前行的范围内，所以用rowwise()开启逐行处理模式，处理完后用ungroup()回到常规分组。
2. cell_spec()：这个函数可以将单元格内容转换成带HTML样式的文本，支持设置文字颜色、背景色等样式参数。
3. escape = F：在调用kable()时必须设置这个参数，否则HTML样式代码会被转义成纯文本，无法生效。

这样生成的表格就会自动把b、c列中超出对应行min-max范围的内容（或单元格背景）变成红色啦~

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