如何在R中用knitr::kable按Person列自动分组表格行？

要实现无需手动定义分组的自动分组，你可以结合dplyr获取分组信息，再用kableExtra的pack_rows()批量添加分组行，或者处理重复的Person值仅显示每组首行，以下是具体实现：

方法1：添加分组标题行（推荐，可读性更强） #

这种方法会隐藏原Person列，用分组标题行替代，自动匹配每个Person对应的行数：

library(dplyr)
library(knitr)
library(kableExtra)

# 示例数据（模拟你的MRE）
df <- tibble(
  Person = rep(c("Alice", "Bob", "Charlie"), c(3, 2, 4)),
  Item = c("Book", "Pen", "Notebook", "Pencil", "Eraser", "Ruler", "Marker", "Stapler", "Scissors"),
  Price = c(15, 2, 8, 3, 1, 5, 4, 2, 6)
)

# 1. 自动获取每个Person对应的行数
group_details <- df %>%
  group_by(Person) %>%
  summarize(row_count = n()) %>%
  ungroup()

# 2. 生成基础表格并批量添加分组行
final_table <- df %>%
  select(-Person) %>%  # 移除原Person列，改用分组标题显示
  kable("html", caption = "按Person自动分组的物品清单") %>%
  kable_styling(full_width = FALSE)

# 循环添加分组行，自动计算起止行号
current_start <- 1
for (i in 1:nrow(group_details)) {
  final_table <- final_table %>%
    pack_rows(
      group_label = group_details$Person[i],
      start_row = current_start,
      end_row = current_start + group_details$row_count[i] - 1
    )
  current_start <- current_start + group_details$row_count[i]
}

# 输出表格
final_table

如果是PDF输出，只需将kable("html")改为kable("latex")即可，pack_rows()支持两种格式。

方法2：保留Person列但仅显示每组首行 #

如果你想保留Person列，仅在每组第一行显示Person名称，其余行隐藏重复值：

df_processed <- df %>%
  group_by(Person) %>%
  mutate(Person = ifelse(row_number() == 1, Person, NA)) %>%
  ungroup()

df_processed %>%
  kable("html", caption = "Person列仅首行显示的分组表格", na = "") %>%
  kable_styling(full_width = FALSE)

这里用na = ""让NA值显示为空，避免出现NA字样。

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