如何在R中使用datatables根据单个数字筛选区间范围内的数据

问题背景 #

现有如下数据集，包含区间的最小值、最大值以及字符串格式的区间列：

testdata <- data.frame(minimum = c(1, 2, 3, 2, 3, 1, 1, 2),
                       maximum = c(6, 7, 6, 8, 9, 8, 10, 2)) %>%
            dplyr::mutate(range=paste0(minimum, "-", maximum))

使用DT默认的顶部筛选时，range列是字符串类型，没法实现「输入一个数字，筛选出该数字落在区间内的行」的需求（比如输入4时，需要显示第1-7行）。

方法一：基于minimum和maximum列实现自定义筛选 #

直接用已有的数值列，添加自定义筛选框，通过JavaScript判断输入值是否在区间内：

library(DT)
library(dplyr)

testdata <- data.frame(minimum = c(1, 2, 3, 2, 3, 1, 1, 2),
                       maximum = c(6, 7, 6, 8, 9, 8, 10, 2)) %>%
            dplyr::mutate(range=paste0(minimum, "-", maximum))

datatable(testdata, 
          filter = 'top',
          options = list(
            pageLength = 5, 
            autoWidth = TRUE,
            initComplete = JS(
              "function(settings, json) {
                // 在表头最后一行添加自定义筛选列
                $('#' + settings.sTableId + ' thead tr:last').append('<th>区间筛选</th>');
                // 创建数字输入框
                $('<input type=\"number\" placeholder=\"输入数字筛选区间\"/>')
                  .appendTo('#' + settings.sTableId + ' thead tr:last th:last')
                  .on('keyup change', function() {
                    var inputVal = $(this).val();
                    var table = settings.oInstance.api();
                    // 遍历每一行判断区间条件
                    table.rows().every(function() {
                      var rowMin = parseFloat(this.data()[0]);
                      var rowMax = parseFloat(this.data()[1]);
                      // 空值时显示所有行，否则判断是否在区间内
                      var isVisible = (inputVal === '' || (inputVal >= rowMin && inputVal <= rowMax));
                      this.nodes().toggle(isVisible);
                    });
                  });
              }"
            ),
            // 可选：隐藏min和max列的默认筛选框，避免混淆
            columnDefs = list(list(targets = c(0,1), searchable = FALSE))
          )
)

关键说明 #

• 通过initComplete回调在表格初始化完成后添加自定义筛选输入框
• 监听输入框的输入/修改事件，实时判断每一行的区间是否包含输入值
• 可以选择隐藏默认的min、max列筛选，减少用户操作困惑

方法二：解析range列的字符串实现筛选 #

如果不想依赖min和max列，直接解析range列的字符串来判断区间：

library(DT)
library(dplyr)

testdata <- data.frame(minimum = c(1, 2, 3, 2, 3, 1, 1, 2),
                       maximum = c(6, 7, 6, 8, 9, 8, 10, 2)) %>%
            dplyr::mutate(range=paste0(minimum, "-", maximum))

datatable(testdata, 
          filter = 'top',
          options = list(
            pageLength = 5, 
            autoWidth = TRUE,
            initComplete = JS(
              "function(settings, json) {
                $('#' + settings.sTableId + ' thead tr:last').append('<th>区间筛选</th>');
                $('<input type=\"number\" placeholder=\"输入数字筛选区间\"/>')
                  .appendTo('#' + settings.sTableId + ' thead tr:last th:last')
                  .on('keyup change', function() {
                    var inputVal = $(this).val();
                    var table = settings.oInstance.api();
                    table.rows().every(function() {
                      // 拆分range字符串为min和max数值
                      var rangeParts = this.data()[2].split('-').map(Number);
                      var rowMin = rangeParts[0];
                      var rowMax = rangeParts[1];
                      var isVisible = (inputVal === '' || (inputVal >= rowMin && inputVal <= rowMax));
                      this.nodes().toggle(isVisible);
                    });
                  });
              }"
            ),
            // 可选：隐藏range列的默认筛选框
            columnDefs = list(list(targets = 2, searchable = FALSE))
          )
)

关键说明 #

• 核心是把range列的字符串按-分割，转换为数值类型的区间边界
• 后续的显示/隐藏逻辑和方法一完全一致

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