R Markdown中DT表格过滤后实时更新列均值等指标的实现方法

完全可以实现，我们可以借助DT的JavaScript回调功能，监听表格的筛选/绘制事件，实时计算并展示指定列的统计值。下面是修改后的完整Rmd脚本：

library(DT)

df = data.frame(id = c(1, 2, 3, 4, 5), val = c(100, 150, 200, 100, 120))

# 先添加一个显示均值的容器
cat('<div id="val-mean" style="margin-bottom: 10px; font-weight: bold;">当前val列均值：</div>')

datatable(df, filter="top", 
          callback = JS('
            // 监听表格绘制完成事件（筛选后会触发）
            table.on("draw.dt", function() {
              // 获取当前可见行的val列数据
              var data = table.column(1, {search: "applied"}).data();
              // 计算均值
              var mean = data.reduce(function(a, b) { return a + b; }, 0) / data.length;
              // 更新页面上的均值显示
              document.getElementById("val-mean").textContent = "当前val列均值：" + mean.toFixed(2);
            });
            // 页面加载完成后先计算一次初始均值
            $(document).ready(function() {
              var data = table.column(1, {search: "applied"}).data();
              var mean = data.reduce(function(a, b) { return a + b; }, 0) / data.length;
              document.getElementById("val-mean").textContent = "当前val列均值：" + mean.toFixed(2);
            });
          ')
)

关键说明： #

• 我们先通过cat()在页面里插入了一个<div>容器，用来实时展示均值
• 在datatable的callback参数中，编写了两段JavaScript代码：
  1. 监听draw.dt事件：每次表格因筛选、分页等操作重绘时，自动计算当前可见行的val列均值并更新显示
  2. 页面加载完成时的初始化计算：确保打开页面就能看到初始的均值
• column(1)对应表格的第二列（DT的列索引从0开始），如果你的目标列位置不同，需要调整这个数字
• toFixed(2)用来把均值保留两位小数，可根据需求修改

将这个脚本Knit成HTML后，筛选表格数据时，页面上方的均值会实时跟着变化，完全符合你的需求。

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