如何使用DT包的formatStyle()条件改变单元格背景色？

你的需求完全可以通过formatStyle()实现，原代码的问题主要在于styleEqual的用法错误，以及辅助列未隐藏，以下是修正后的完整方案：

原代码问题点 #

• styleEqual需要传入值与样式的键值对映射，你只提供了值数组，缺少对应的颜色映射，导致样式解析失败
• 新增的BackgroundColor辅助列会默认显示在表格中，需要隐藏避免干扰
• 直接修改全局data对象可能引发意外，建议处理数据时使用副本

修正后的完整代码 #

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

# 定义UI
ui <- fluidPage(
  titlePanel("Shiny Testing"),
  sidebarLayout(
    sidebarPanel(
      selectInput("test1", "Select Test 1", choices = NULL),
      selectInput("test2", "Select Test 2", choices = NULL)
    ),
    mainPanel(
      DTOutput("olink")
    )
  )
)

# 定义server逻辑
server <- function(input, output, session) {
  # 初始化原始数据
  raw_data <- data.frame(
    USUBJID = rep(1:10, each = 5),
    AVISIT = rep(1:5, times = 10),
    PARAMCD = rep(paste0("Param", 1:10), each = 5),
    AVAL = rnorm(50)
  )
  
  # 更新下拉选项（去重）
  observe({
    unique_params <- unique(raw_data$PARAMCD)
    updateSelectInput(session, "test1", choices = setNames(unique_params, unique_params))
    updateSelectInput(session, "test2", choices = setNames(unique_params, unique_params))
  })
  
  # 预处理数据：添加背景色标记列
  preprocessData <- function(data) {
    # 创建数据副本，避免修改原始数据
    processed_data <- data %>%
      mutate(BackgroundColor = ifelse(PARAMCD == "Param1" & AVAL < 0, "red", "white"))
    return(processed_data)
  }
  
  output$olink <- renderDT({
    data <- preprocessData(raw_data)
    
    datatable(data, 
              options = list(
                # 隐藏BackgroundColor辅助列
                columnDefs = list(list(visible = FALSE, targets = which(colnames(data) == "BackgroundColor")))
              )) %>%
      formatStyle(
        columns = "AVAL",
        valueColumns = "BackgroundColor",
        # 明确值与背景色的映射关系
        backgroundColor = styleEqual(c("white", "red"), c("white", "red"))
      )
  }, server = FALSE) # 可根据需求切换server=TRUE/FALSE
}

# 运行app
shinyApp(ui, server)

关键说明 #

1. styleEqual修正：明确指定每个标记值对应的背景色，确保formatStyle能正确匹配样式
2. 隐藏辅助列：通过columnDefs将BackgroundColor列设为不可见，不影响表格展示
3. 数据副本处理：使用mutate创建数据副本，避免修改原始raw_data引发的状态问题
4. server参数：可直接在renderDT中设置server=TRUE/FALSE，满足服务端/客户端处理需求

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