R Shiny中如何为DataTable每行最小值单元格设置高亮颜色

不需要通过循环拼接formatStyle实现，这类逐行动态匹配样式的需求，用DT内置的JS回调方案适配性更好，尤其适配Shiny应用中数据随筛选动态变化的场景，不会出现数据更新后样式错位的问题。

推荐方案（适配动态筛选场景） #

通过rowCallback参数在表格每一行渲染时实时计算该行最小值，直接给对应单元格加背景色，不管是筛选、排序、分页触发的重渲染，都会自动重新计算样式，不需要额外写Shiny监听逻辑。
完整示例代码：

library(DT)
data(iris)
# 示例数据，移除非数值的Species列
iris_data <- head(iris[, -5])

datatable(
  iris_data,
  options = list(
    rowCallback = JS(
      "function(row, data) {
        // 跳过第0列（行名列），提取当前行所有参与比较的数值
        const rowNums = data.slice(1, data.length).map(Number);
        const minValue = Math.min(...rowNums);
        // 遍历单元格，给最小值所在格加背景色
        for (let colIdx = 1; colIdx < data.length; colIdx++) {
          if (Number(data[colIdx]) === minValue) {
            $(row).find(`td:eq(${colIdx})`).css('background-color', '#e6f7ff');
          }
        }
      }"
    )
  )
)

如果表格有其他不需要参与最小值比较的非数值列，只要调整slice方法的起止索引，跳过对应列即可，填充色的色值也可以根据自己的UI风格替换。

循环拼接formatStyle的实现方式（仅适合静态固定数据） #

循环拼接formatStyle的思路也能跑通，但存在明显局限：

• 样式是静态绑定的，Shiny中用户筛选导致数据变化后，行位置改变会出现样式错位
• 按列匹配值时，如果同列其他行存在和当前行最小值相同的数值，容易出现误上色
• 数据量大的时候渲染效率比JS方案低

如果是固定不变的静态表可以参考以下代码：

library(DT)
data(iris)
iris_data <- head(iris[, -5])

# 初始化表格对象
dt_obj <- datatable(iris_data)

# 逐行遍历，给每行最小值所在单元格加样式
for (row_idx in 1:nrow(iris_data)) {
  # 找到当前行最小值对应的列索引（DT中行名占第0列，所以数值列索引要+1）
  min_col_idx <- which(iris_data[row_idx, ] == min(iris_data[row_idx, ])) + 1
  # 拼接formatStyle规则，通过行索引匹配样式
  dt_obj <- dt_obj %>%
    formatStyle(
      columns = min_col_idx,
      backgroundColor = styleRow(row_idx, "#e6f7ff")
    )
}

# 输出表格
dt_obj

这里用styleRow按行位置匹配样式，能减少同值误判的问题，但依然解决不了动态筛选后行号变化导致的样式错位，优先选择第一种JS方案即可。

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