如何在R的DT包中同时使用columnDefs与format*函数格式化列？

问题出在formatRound、formatSignif这类格式化函数会直接替换目标列的columnDefs$render逻辑，把你之前加的悬停文本代码覆盖了；而formatStyle只是添加样式规则，不会修改render，所以能正常共存。下面提供两种无需大量JS代码的解决方案：

方案1：将数值格式化整合到自定义JS渲染函数 #

把取整/取有效数字的逻辑和悬停文本逻辑写在同一个JS渲染函数里，不用单独调用formatRound：

library(dplyr)
library(DT)

data <- tibble(A = c("A", "AB"), B = c(-1.234, 1.567))

# 整合取整+悬停文本的JS渲染函数
js <- c(
  "function(data, type, row, meta) {",
  "  if (type === 'display') {",
  "    // 按需调整格式化规则：Math.round取整，或toFixed(2)保留两位小数",
  "    const formattedData = Math.round(data);",
  "    // 包裹带悬停文本的span标签",
  "    return '<span title=\"A: ' + row[1] + '\">' + formattedData + '</span>';",
  "  }",
  "  // 非展示类型返回原始数据，保证排序、过滤功能正常",
  "  return data;",
  "}"
)

dt <- DT::datatable(
  data,
  options = list(
    columnDefs = list(
      list(targets = 1, visible = FALSE),
      list(targets = 2, render = JS(js))
    )
  )
) %>%
  formatStyle(columns = "B", color = styleInterval(0, c("red", "green")))

dt

方案2：用rowCallback替代columnDefs添加悬停文本（更推荐） #

通过rowCallback给目标单元格动态添加悬停属性，和format*的格式化逻辑完全分离，不会互相覆盖：

library(dplyr)
library(DT)

data <- tibble(A = c("A", "AB"), B = c(-1.234, 1.567))

dt <- DT::datatable(
  data,
  options = list(
    columnDefs = list(
      list(targets = 1, visible = FALSE)
    ),
    # 用rowCallback给B列（索引2，从0开始计数）加悬停文本
    rowCallback = JS(
      "function(row, data) {",
      "  const cell = $(row).find('td:eq(2)');",
      "  cell.attr('title', 'A: ' + data[1]);",
      "}"
    )
  )
) %>%
  formatRound(columns = "B", digits = 0) %>% # 正常使用formatRound
  formatStyle(columns = "B", color = styleInterval(0, c("red", "green"))) # 同时设置样式

dt

这种方法的优势是逻辑分离，不管后续用formatRound还是formatSignif，都不会影响悬停文本的效果，JS代码也更简洁。

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