如何在R的DT::datatable输出中冻结/固定最后一行？

由于DT包本身没有直接固定最后一行的内置参数，我们可以通过自定义CSS+JavaScript回调的方式实现需求，以下是具体方案：

实现思路 #

利用CSS的sticky定位固定最后一行，再通过DT的callback参数注入JS代码，确保表格重绘（如排序、过滤后）时仍能正确识别并固定最后一行。

完整代码示例 #

library(shiny)
library(DT)

ui <- fluidPage(
  tags$head(
    tags$style(HTML("
      /* 固定最后一行的样式 */
      .fixed-last-row {
        position: sticky !important;
        bottom: 0;
        background-color: white !important;
        box-shadow: 0 -2px 3px rgba(0,0,0,0.05); /* 可选：添加阴影增强区分度 */
      }
    "))
  ),
  DTOutput("large_table")
)

server <- function(input, output, session) {
  # 生成含大量行的测试数据
  df <- data.frame(
    ID = 1:150,
    Metric = rnorm(150),
    Group = sample(c("X", "Y", "Z"), 150, replace = TRUE)
  )
  
  output$large_table <- renderDT({
    datatable(
      df,
      scrollY = "450px",
      rownames = FALSE,
      callback = JS("
        // 表格重绘时重新绑定固定类
        table.on('draw.dt', function() {
          $('tbody tr', table.table()).removeClass('fixed-last-row');
          $('tbody tr:last-child', table.table()).addClass('fixed-last-row');
        });
        // 初始加载时直接绑定
        $('tbody tr:last-child', table.table()).addClass('fixed-last-row');
      ")
    )
  })
}

shinyApp(ui, server)

关键说明 #

1. CSS样式：position: sticky让最后一行固定在表格底部，!important用于覆盖DT默认样式，白色背景避免被滚动内容遮挡。
2. JS回调：监听DT的draw.dt事件（表格排序、过滤、分页后都会触发），确保每次重绘后都能正确选中最后一行；初始加载时手动执行一次绑定，保证首次渲染生效。
3. 特殊场景适配：如果需要固定的是总计行这类特定行，只需将该行添加到数据框末尾，再用此方法即可固定。

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