gt包分组列静态下移、交互消失问题及高亮需求解决问询

问题说明 #

使用gt与gtExtras包创建分组表格时，需高亮每组sales列的最小值、最大值，并生成可嵌入Shiny应用的交互式表格，但遇到以下问题：

• 静态状态下，分组列（company）下移一级，显示结构不符合预期
• 开启交互模式后，分组列直接消失，同时组内高亮效果失效

解决方案 #

核心问题在于gt::opt_interactive()对groupname_col参数的支持有限，导致交互模式下分组列丢失。我们可以通过预计算组内最值标记+手动分组显示的方式解决，同时保留交互功能：

1. 先对数据分组，计算每组sales的最小、最大值，添加标记列定位需要高亮的行
2. 使用gt::group_by()实现分组显示，替代groupname_col
3. 基于标记列通过tab_style设置高亮样式，保证静态和交互状态下都生效

修改后代码示例 #

library(gt)
library(gtExtras)
library(dplyr)

df <- structure(list(company = c("A", "A", "A", "B", "B", "C", "C"), 
                     account_num = c(1L, 2L, 3L, 4L, 5L, 7L, 8L), sales = c(173L, 
                                                                            126L, 142L, 107L, 151L, 123L, 198L)), class = c("tbl_df", 
                                                                                                                            "tbl", "data.frame"), row.names = c(NA, -7L))

# 预计算组内最值标记列
df_processed <- df %>%
  group_by(company) %>%
  mutate(
    is_sales_min = sales == min(sales),
    is_sales_max = sales == max(sales)
  ) %>%
  ungroup()

# 创建交互式分组表格并高亮最值
df_processed %>%
  gt() %>%
  # 手动设置分组，替代groupname_col
  group_by(company) %>%
  # 高亮最小值
  tab_style(
    style = cell_fill(color = "orange"),
    locations = cells_body(
      columns = sales,
      rows = is_sales_min
    )
  ) %>%
  # 高亮最大值
  tab_style(
    style = cell_fill(color = "lightblue"),
    locations = cells_body(
      columns = sales,
      rows = is_sales_max
    )
  ) %>%
  # 移除标记列（不需要显示在表格中）
  cols_hide(columns = c(is_sales_min, is_sales_max)) %>%
  # 开启交互模式，保留筛选、排序功能
  opt_interactive(
    active = TRUE,
    use_search = FALSE,
    use_filters = TRUE
  )

关键说明 #

• 预计算标记列：通过group_by()+mutate()生成is_sales_min和is_sales_max，精准定位每组需要高亮的sales单元格
• 手动分组：使用gt::group_by()替代groupname_col，确保交互模式下company列正常显示且分组结构保留
• 样式设置：用gt::tab_style替代gtExtras::tab_style_by_grp，避免交互模式下的样式冲突，同时保证高亮效果在静态和交互状态下一致
• 交互功能：opt_interactive()的筛选、排序功能完全保留，可直接嵌入Shiny应用使用

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