如何在reactablefmtr中高效为多变量使用pill_buttons()

针对15个变量重复编写colDef的问题，可以通过批量生成列配置列表的方式减少重复代码，同时保留pill_buttons()的样式效果。

步骤1：定义目标变量集合 #

先明确需要展示的主变量（如var1到var15），用代码批量生成变量名，避免手动输入：

# 假设你的目标变量是var1到var15，按需调整范围
target_vars <- paste0("var", 1:15)

步骤2：批量生成主变量的pill按钮配置 #

利用purrr::map()函数，为每个目标变量自动生成带pill_buttons()的colDef：

# 生成主变量的列配置
main_col_config <- map(
  target_vars,
  ~ list(
    !! .x := colDef(cell = pill_buttons(ex, color_ref = paste0(.x, "_z_pal")))
  )
) %>% flatten()

这里用!! .x实现变量名的动态绑定，确保每个配置对应正确的列名。

步骤3：批量生成隐藏辅助列的配置 #

收集所有需要隐藏的辅助列（var*_z和var*_z_pal），同样批量生成隐藏配置：

# 收集所有需要隐藏的辅助列名
hidden_cols <- c(
  paste0(target_vars, "_z"),
  paste0(target_vars, "_z_pal")
)

# 生成隐藏列的配置
hidden_col_config <- map(
  hidden_cols,
  ~ list(!! .x := colDef(show = FALSE))
) %>% flatten()

步骤4：合并所有配置并生成表格 #

将date列的配置、主变量配置、隐藏列配置合并后，传入reactable()的columns参数：

reactable(ex,
          highlight = TRUE,
          pagination = FALSE,
          defaultColDef = colDef(
            align = "center",
            headerVAlign = "center",
            html = TRUE
          ),
          columns = c(
            list(date = colDef(sticky = "left")),
            main_col_config,
            hidden_col_config
          )
)

额外优化：数据预处理的简化 #

如果你的_z列是通过标准化生成的，也可以在数据预处理阶段用批量方式生成，避免手动添加15个var*_z列：

# 示例：批量生成z值列和对应的颜色列
ex <- ex %>%
  mutate(
    # 批量生成z值列（假设主变量是var1-var15）
    across(all_of(target_vars), ~ round(runif(n(), -3, 3), 2), .names = "{.col}_z"),
    # 批量生成颜色列
    across(ends_with("_z"), cell_bg, .names = "{.col}_pal")
  )

这样无论你有15个还是更多变量，只需要调整target_vars的范围，所有配置都会自动生成，彻底避免重复代码。

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