如何用R的kableExtra基于3个及以上列范围设置文本条件格式？

我是R语言新手，目前已有可运行的代码（如下可运行代码块），能将列中大于20的值设为红色文本，小于20的值设为蓝色文本，效果良好。但我需要将该逻辑扩展到3个及以上数值范围，尝试编写的报错代码块运行报错，错误信息为：

Error: unexpected symbol in:
" kable_paper("striped", full_width = F)
mtcars"

我希望手动指定多列的数值范围来设置文本颜色，而非自动分配类别，恳请帮忙解决问题。

可运行代码块 #

library(tidyverse)
library(kableExtra)
#working!!  This specifies multiple rows but only with 2 values
mtcars[1:10, 1:2] %>%
  mutate(
    car = row.names(.),
    
    cyl = cell_spec(cyl, "html", color = ifelse(cyl > 20, "red", "blue")),
    mpg = cell_spec(mpg, "html", color = ifelse(mpg > 20, "red", "blue"))
    
  ) %>%
  select(car, mpg, cyl) %>%
  kbl(format = "html", escape = F) %>%
  kable_paper("striped", full_width = F)

报错代码块 #

mtcars[1:10, 1:2] %>%
  mutate(
    car = row.names(.),
    
    cyl = cell_spec(cyl, "html", color = ifelse(cyl > 20, "red",
                             ifelse(cyl > 10, "green",
                                    ifelse(cyl > 0, "blue"))),
    
  ) %>%
  select(car, mpg, cyl) %>%
  kbl(format = "html", escape = F) %>%
  kable_paper("striped", full_width = F)

mtcars[1:10, 1:2] %>%
  mutate(
    car = row.names(.),
    
    cyl = cell_spec(cyl, "html", color = ifelse(cyl > 20, "red",
                             ifelse(cyl > 10 && cyl<=19, "green",
                                    ifelse(cyl > 0, "blue"))),
    
  ) %>%
  select(car, mpg, cyl) %>%
  kbl(format = "html", escape = F) %>%
  kable_paper("striped", full_width = F)

问题分析与解决方案 #

报错原因 #

1. 语法错误：嵌套ifelse的括号未完全闭合，cell_spec和mutate函数都缺少闭合括号，导致代码解析失败。
2. 逻辑适配问题：mtcars的cyl列实际值为4、6、8，原代码的范围判断（>20、>10）完全不匹配；且多列设置时未统一处理各列的判断逻辑。

正确实现代码 #

推荐用case_when替代多层嵌套ifelse，代码更清晰易读，同时修正括号问题，实现多列自定义范围颜色设置：

library(tidyverse)
library(kableExtra)

mtcars[1:10, 1:2] %>%
  mutate(
    car = row.names(.),
    # 给cyl列设置多范围颜色：<=5为蓝色，6-7为绿色，>=8为红色
    cyl = cell_spec(cyl, "html", color = case_when(
      cyl <= 5 ~ "blue",
      cyl >=6 & cyl <=7 ~ "green",
      cyl >=8 ~ "red"
    )),
    # 给mpg列设置多范围颜色：<=15为黑色，16-20为蓝色，>20为红色
    mpg = cell_spec(mpg, "html", color = case_when(
      mpg <=15 ~ "black",
      mpg >15 & mpg <=20 ~ "blue",
      mpg >20 ~ "red"
    ))
  ) %>%
  select(car, mpg, cyl) %>%
  kbl(format = "html", escape = F) %>%
  kable_paper("striped", full_width = F)

代码说明 #

• case_when按顺序匹配条件，每个条件对应一个颜色，逻辑直观，比多层ifelse更易维护。
• 每列可单独定义数值范围和对应颜色，完全满足手动指定需求。
• 确保所有函数括号正确闭合，避免语法解析错误。

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