R语言中reactable能否支持按行/列双向交互式排序？

reactable 是实现这类交互式表格需求的绝佳选择——它原生支持列标题点击排序，同时通过简单配置就能实现行标题的点击排序，完全满足你按特征（行标题）排序的需求。reactablefmtr 作为 reactable 的扩展包，主要负责表格样式美化，核心排序功能还是依赖 reactable 本身的能力。

一、基础列排序（默认支持） #

reactable 默认就支持点击列标题切换升序/降序排序，只需确保数据结构符合你的需求（行对应特征、列对应ML算法）：

library(reactable)

# 构造模拟数据
set.seed(123)
feature_names <- paste0("F", 1:6)
ml_methods <- paste0("Method ", LETTERS[1:4])
vip_data <- matrix(sample(1:6, 24, replace = FALSE), nrow = 6, ncol = 4,
                   dimnames = list(feature_names, ml_methods))
vip_df <- as.data.frame(vip_data)

# 生成支持列排序的交互式表格
reactable(vip_df,
          sortable = TRUE,  # 默认即为TRUE，可省略
          defaultSortOrder = "desc"  # 设置默认排序方向
)

二、行标题点击排序（自定义实现） #

要实现点击行标题（特征名称）排序，可借助 reactable 的 JavaScript 回调功能，给行标题添加点击事件，触发对应逻辑的排序。以下提供两种常见场景的实现：

场景1：按点击特征在某一算法中的排名排序 #

比如点击特征“F”，按该特征在“Method A”中的VIP排名排序：

reactable(vip_df,
          sortable = TRUE,
          rowNames = TRUE,
          rowNameStyle = list(cursor = "pointer"),  # 行标题显示手型光标，提示可点击
          # JS回调实现行标题点击排序
          onClick = JS("function(rowInfo, colInfo) {
            if (colInfo.id === 'rowNames') {
              // 触发按Method A列排序，切换升降序
              this.sort('Method_A', rowInfo.sortDesc ? 'asc' : 'desc');
            }
          }")
)

场景2：按点击特征的综合排名排序 #

如果需要按特征在所有算法中的平均排名排序，可预先计算行排序键，隐藏后通过行标题触发排序：

# 新增行排序键（各算法排名的均值）
vip_df$row_avg_rank <- rowMeans(vip_df)

reactable(vip_df,
          sortable = TRUE,
          columns = list(
            row_avg_rank = colDef(show = FALSE)  # 隐藏排序键列
          ),
          rowNames = TRUE,
          rowNameStyle = list(cursor = "pointer"),
          onClick = JS("function(rowInfo, colInfo) {
            if (colInfo.id === 'rowNames') {
              // 触发按隐藏的平均排名列排序
              this.sort('row_avg_rank', rowInfo.sortDesc ? 'asc' : 'desc');
            }
          }")
)

三、其他可选包 #

• DT：另一款常用交互式表格包，支持列排序，结合回调参数也能实现行标题点击排序，但配置相对繁琐。
• gt：主打静态精美表格，交互式排序支持有限，灵活性不如reactable和DT。

总结：reactable 是最适配你需求的工具，既能轻松实现列排序，又能通过简单的JS回调实现行标题的交互式排序，完全覆盖按特征排序的需求。

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