多条件表格单元格着色失效：两类条件仅一类生效的问题排查

原代码的核心问题在于全局判断所有分类是否属于Clothes/Accessories，然后统一应用一套高亮规则，但表格中同时存在多种分类，这种逻辑无法实现不同分类对应不同高亮条件的需求，导致所有单元格只能用一套规则渲染。

要实现按每行的Category分别应用不同的高亮规则，需要针对每个数值列（Profit、Loss、Discount），根据对应行的Category来选择对应的区间和颜色映射。可以通过自定义颜色生成函数，结合DT的单元格级样式设置来实现。

下面是修改后的代码：

# 加载所需库
library(shiny)
library(DT)
library(dplyr)

# 创建数据集
df <- data.frame(
    Category = c("Clothes", "Accessories", "Toys", "Books"),
    Profit = c(55, 68, 15, 20),
    Loss = c(47, 65, 52, 18),
    Discount = c(63, 54, 81, 15)
)

# 定义两类条件的区间和颜色
rule1 <- list(brks = c(14, 20), clrs = c("#d4edbc", "#ffc8aa", "#ea9999")) # Clothes/Accessories 适用
rule2 <- list(brks = c(64, 79), clrs = c("#ea9999", "#ffc8aa", "#d4edbc")) # 其他分类适用

# 定义UI
ui <- fluidPage(
    titlePanel("按分类条件格式化表格"),
    DT::dataTableOutput("table")
)

# 定义服务器逻辑
server <- function(input, output) {
    output$table <- DT::renderDataTable({
        # 为每个数值列生成对应单元格的颜色
        get_cell_colors <- function(col_name) {
            mapply(function(val, cat) {
                if (cat %in% c("Clothes", "Accessories")) {
                    # 匹配rule1的区间与颜色
                    rule1$clrs[findInterval(val, rule1$brks)]
                } else {
                    # 匹配rule2的区间与颜色
                    rule2$clrs[findInterval(val, rule2$brks)]
                }
            }, df[[col_name]], df$Category)
        }
        
        # 生成所有数值列的颜色映射
        color_maps <- lapply(names(df)[2:4], get_cell_colors)
        names(color_maps) <- names(df)[2:4]
        
        DT::datatable(df) %>%
            formatStyle(
                columns = names(df)[2:4],
                backgroundColor = styleEqual(unique(unlist(color_maps)), unique(unlist(color_maps))),
                target = "cell" # 针对单个单元格设置样式
            )
    })
}

# 运行应用
shinyApp(ui = ui, server = server)

• 先将两类高亮规则封装为列表，清晰区分不同分类对应的区间和颜色
• 自定义get_cell_colors函数，遍历每个数值列的单元格，根据所在行的Category选择对应规则，计算出单元格的背景色
• 使用styleEqual配合target = "cell"，实现单元格级的精准颜色映射，让不同分类的行应用对应的高亮逻辑

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