Shiny中如何用DT包按行设置数据表格的数字保留位数？

你之前尝试的formatRound方法无法生效的原因如下：

• 链式调用formatRound时，后续设置会覆盖之前对同一行的格式化规则
• digits参数是按列而非按行指定小数位数，c(0,2,2)会让第一列统一保留0位小数，不符合行差异化的需求

下面是基于JavaScript的解决方案，通过DT的columnDefs配置实现精准的行级格式化：

library(shiny)
library(DT)

ui <- fluidPage(
  DTOutput("formatted_table")
)

server <- function(input, output) {
  # 示例数据
  data <- data.frame(
    c1 = c(123.456, 789.123, 456.55),
    c2 = c(123.456, 789.123, 456.55)
  )
  
  output$formatted_table <- renderDT({
    datatable(
      data,
      options = list(
        columnDefs = list(
          list(
            targets = c(1, 2),  # 目标列索引（DT中从0开始，对应data的c1、c2）
            render = JS(
              "function(data, type, row, meta) {",
              "  // 仅在显示时应用格式化，排序/过滤仍使用原始数据",
              "  if (type === 'display') {",
              "    return meta.row === 0 ? Number(data).toFixed(0) : Number(data).toFixed(2);",
              "  }",
              "  return data;",
              "}"
            )
          )
        )
      )
    )
  })
}

shinyApp(ui, server)

代码说明 #

• columnDefs：用于定义列的渲染规则，targets指定要格式化的列
• render函数：DT会在渲染单元格时调用该JS函数，参数说明：
  • data：单元格的原始数据值
  • type：操作类型，仅在type === 'display'时应用格式化，保证排序、过滤功能使用原始数值，避免偏差
  • meta.row：当前行的索引（从0开始），判断是否为第一行来选择小数位数
  • Number(data).toFixed(n)：将数值转为指定小数位数的字符串

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