在reactable中无需硬编码列名实现首列与末列固定（sticky）的方法

嘿，这个问题我之前也碰到过，其实只需要动态获取列名就能解决，不用纠结硬编码列名的麻烦！

核心思路很简单：我们从数据本身动态提取首列和末列的名称，再把这两个列的sticky配置放进columns参数里，这样不管你的数据列结构怎么变，首末列都会自动被设置为固定状态。

直接上可运行的代码示例：

library(reactable)

# 准备你的数据（这里用示例数据，替换成你自己的数据集即可）
my_data <- MASS::Cars93[1:5, ]

# 动态获取首列和末列的列名
first_column <- colnames(my_data)[1]
last_column <- colnames(my_data)[ncol(my_data)]

# 构建固定列的配置列表
sticky_column_config <- list()
sticky_column_config[[first_column]] <- colDef(sticky = "left")
sticky_column_config[[last_column]] <- colDef(sticky = "right")

# 生成带固定首末列的表格
reactable(
  data = my_data,
  columns = sticky_column_config
)

这段代码的工作逻辑：

• 先用colnames(my_data)[1]拿到数据的第一列名称，colnames(my_data)[ncol(my_data)]拿到最后一列的名称，完全不用硬写具体的列名；
• 然后把这两个列的固定配置存入列表，传给reactable的columns参数；
• 其他列会自动使用reactable的默认配置，不会受到任何影响。

如果之后你需要给其他列添加自定义配置，也完全没问题，只需要在sticky_column_config列表里继续添加就行，比如：

# 给Model列设置最小宽度
sticky_column_config$Model <- colDef(minWidth = 180)

这样既保留了首末列的固定功能，又能给其他列加个性化配置，一举两得！

内容来源于stack exchange