gt包多层级分类分组：避免属性列值重复的优化方案问询

我正在用R语言的gt包开发表格解决方案，核心目标是避免表格中出现重复值。gt原生的行分组功能很实用，但按Object字段分组时，Type、Speed、L这三个属于Object的属性列会出现大量重复值；如果把这些列设为行组标签，又会导致行组宽度过宽，影响阅读。试过gt手册里删除重复数据的方案，但不适用于当前数据集。目前的优化方式是把这些列加入行组并加粗Object名称，但信息展示不够直观友好，希望找到更易读的方式展示Type、Speed、L的值，同时避免重复，实现类似示例图中去除重复值的效果。

相关代码与数据集 #

# 加载所需包
library(gt)
library(dplyr)

# 定义示例数据集
sensors <- structure(
  list(
    Object = c("obj_1", "obj_1", "obj_2", "obj_2", "obj_3", "obj_3"),
    Type = c("E", "E", "E", "E", "E", "E"),
    Speed = c(24, 24, 25, 25, 24, 24),
    L = c(3, 3, 3, 3, 3, 3),
    Sensor = c("sen_1", "sen_2", "sen_1", "sen_3", "sen_4", "sen_2"),
    A = c(1, NA, 1, 1, 2, NA),
    B = c(1, 1, NA, 1, 2, 1)
  ),
  row.names = c(NA, -6L),
  spec = structure(
    list(
      cols = list(
        Object = structure(list(), class = c("collector_character", "collector")),
        Type = structure(list(), class = c("collector_character", "collector")),
        Speed = structure(list(), class = c("collector_double", "collector")),
        L = structure(list(), class = c("collector_double", "collector")),
        Sensor = structure(list(), class = c("collector_character", "collector")),
        A = structure(list(), class = c("collector_double", "collector")),
        B = structure(list(), class = c("collector_double", "collector"))
      ),
      default = structure(list(), class = c("collector_guess", "collector")),
      delim = ","
    ),
    class = "col_spec"
  ),
  problems = NULL,
  class = c("spec_tbl_df", "tbl_df", "tbl", "data.frame")
)

# 按Object分组的基础表格
sensors %>%
  gt(rowname_col = c("Sensor"), groupname_col = c("Object")) %>% 
  tab_spanner(
    label = "By Location",
    columns = c(A, B)
  )

当前优化方案代码 #

row_group_sep <- " - "

sensors %>%
  gt(rowname_col = c("Sensor"), groupname_col = c("Object", "Type", "Speed", "L")) %>% 
  tab_spanner(
    label = "By Location",
    columns = c(A, B)
  ) %>%
  gt::text_transform(
    locations = cells_row_groups(),
    fn = function(x) {
      lapply(x, function(x) {
        x <- strsplit(x, split = row_group_sep)[[1]]
        gt::md(paste0("**", x[[1]], "**", row_group_sep, x[[2]], row_group_sep, x[[3]], 
                      row_group_sep, x[[4]]))
      })
    }
  )

推荐解决方案 #

通过标记分组内的行位置，仅保留每组中Type、Speed、L列的第一个值，其余重复值设为空，既保留行分组的结构，又避免重复值干扰阅读，同时不会导致行组标签过宽。

实现代码

library(gt)
library(dplyr)

# 预处理：为每个Object分组添加行号标记
sensors_processed <- sensors %>%
  group_by(Object) %>%
  mutate(row_in_group = row_number()) %>%
  ungroup()

# 生成优化后的表格
sensors_processed %>%
  gt(rowname_col = "Sensor", groupname_col = "Object") %>%
  tab_spanner(label = "By Location", columns = c(A, B)) %>%
  # 隐藏重复值：仅保留每组第一行的Type/Speed/L值
  text_transform(
    locations = cells_body(columns = c(Type, Speed, L)),
    fn = function(x, rows) {
      ifelse(sensors_processed$row_in_group[rows] == 1, as.character(x), "")
    }
  ) %>%
  # 可选：为空白重复单元格添加浅灰背景，增强视觉区分
  tab_style(
    style = cell_fill(color = "#f5f5f5"),
    locations = cells_body(
      columns = c(Type, Speed, L),
      rows = row_in_group != 1
    )
  ) %>%
  # 移除辅助列row_in_group（不显示在表格中）
  cols_hide(columns = row_in_group)

方案说明

1. 预处理标记：用dplyr的group_by()和row_number()给每个Object分组内的行编号，用于判断是否为组内首行。
2. 重复值处理：通过text_transform遍历目标列单元格，仅保留组内首行的原始值，其余行设为空字符串。
3. 视觉优化：可选的tab_style为空白单元格添加浅灰色背景，让表格结构更清晰；最后用cols_hide隐藏辅助的行号列，不影响表格展示。

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