如何在R中使用gt库实现数据框分组列指定行显示标识？

你可以通过预处理数据结合gt库来实现需求，让var列的分组标识仅在每组的指定行（如示例中的中间行）显示，其余行置空，具体实现如下：

1. 预处理数据，标记需要显示分组标识的行 #

先按var分组，判断每组需要显示标识的行（示例中每组取中间行：行数为奇数时取第(n+1)/2行，偶数时取第n/2行），然后将其余行的var值置空：

library(tidyverse)
library(gt)

# 生成原始数据
var = c(rep("A",3),rep("B",3),rep("C",2))
name = c("John","Mary","George","Nick","Jonas","Helen","Lary","Paul")    
value = c(seq(1,8,1))                 
data_ = tibble(var,name,value)

# 预处理数据：每组中间行保留var值，其余行置空
data_processed <- data_ %>%
  group_by(var) %>%
  mutate(
    # 计算每组需要显示标识的行位置
    target_row = ifelse(n() %% 2 == 1, (n() + 1) %/% 2, n() %/% 2),
    # 仅目标行保留var值，其余行设为空字符串
    var = ifelse(row_number() == target_row, var, "")
  ) %>%
  ungroup()

2. 用gt库生成目标样式表格 #

使用处理后的数据生成gt表格，并设置对齐方式匹配示例样式：

gt(data_processed) %>%
  # 设置name列居中对齐
  cols_align(align = "center", columns = name) %>%
  # 设置value列右对齐
  cols_align(align = "right", columns = value) %>%
  # 可选：设置表头对齐，匹配示例
  tab_style(
    style = cell_text(align = "left"),
    locations = cells_column_labels(columns = var)
  )

灵活调整显示行 #

如果你需要指定固定行（比如每组第1行或第3行），只需修改target_row的计算逻辑即可：

• 要显示每组第1行：target_row = 1
• 要显示每组最后一行：target_row = n()

内容的提问来源于stack exchange，提问作者Homer Jay Simpson