使用reactable渲染表格时，列变量排序不生效的解决方法

我需要调整数据框中species_type列的显示顺序，让包含数值50的条目排在最前。但提前用arrange排序后，reactable渲染的表格仍然显示错误顺序，可复现代码如下：

library(reactable)
library(dplyr)

species <- c("setosa", "versicolor")
df <- iris %>%
  filter(Species %in% species)
numbers <- c( 100, 300,400, 50)
type <- rep(numbers, times=25)
df1 <- df %>% mutate(type = type)
df2 <- df1 %>%
mutate(species_type= case_when(Species == "setosa" ~ paste0(Species,": ", type),
                               Species == "versicolor" ~ paste0(type,": ", Species),
                               TRUE ~ Species ))
columns <- list(colDef(minWidth = 140), colDef(align = "center"))
columns <- setNames(columns, names(df2)[2:3])
reactable(df2, columns = columns)

问题原因 #

reactable默认启用列排序功能，且默认以表格第一列（此处为Sepal.Length）升序排序，这会覆盖你提前用arrange对数据框做的排序，导致显示顺序不符合预期。

解决方案 #

方案1：禁用自动排序，直接沿用数据框排序结果

先按需求对数据框排序，再关闭reactable的全局排序功能，让表格直接展示数据框的顺序：

# 按type字段升序排序，将值为50的条目排至最前
df_sorted <- df2 %>% arrange(type)

# 渲染表格时禁用自动排序
reactable(df_sorted, columns = columns, sortable = FALSE)

如果只想优先展示含50的条目，其余顺序随意，可自定义拼接数据：

df_sorted <- bind_rows(
  df2 %>% filter(type == 50),
  df2 %>% filter(type != 50)
)

reactable(df_sorted, columns = columns, sortable = FALSE)

方案2：设置默认排序规则，指定按数值列排序

保留表格排序功能，设置默认排序列为type（数值型），确保加载时按数值逻辑排序而非字符串：

# 渲染表格时指定默认排序列和升序规则
reactable(df2, 
          columns = columns,
          defaultSort = "type",
          defaultSortOrder = "asc")

若希望点击species_type列时也按数值排序，可扩展列配置，指定该列的排序依据：

# 给species_type列添加排序规则，基于type字段的数值排序
columns$species_type <- colDef(
  sortable = TRUE,
  sortBy = "type"
)

reactable(df2, 
          columns = columns,
          defaultSort = "species_type",
          defaultSortOrder = "asc")

内容的提问来源于stack exchange，提问作者i.b