如何在R的gt包tab_header中引用数据框列值作为表格标题

你可以通过以下两种方式实现需求，分别适配单表生成和批量多表生成场景：

单表生成场景 #

因为gt()执行后返回的是gt表格对象，而非原始数据框，所以需要在管道中保留对原始数据框的引用，推荐使用大括号{}包裹操作链：

d %>%
  {
    gt(.) %>%
      tab_header(title = unique(.$title))
  }

如果更偏好清晰的分步写法，也可以先提取标题值再生成表格：

# 先提取唯一的标题值
table_title <- unique(d$title)

# 生成表格
d %>%
  select(-title) %>% # 可选：如果不需要title列展示在表格内容里可以去掉
  gt() %>%
  tab_header(title = table_title)

批量多表生成场景 #

如果要从大型数据框批量生成多个带不同标题的表格，可配合分组拆分+映射的方式实现：

library(dplyr)
library(purrr)
library(gt)

big_df %>% # 替换为你的大型源数据框
  group_split(title) %>% # 按title列拆分为多个子数据框，每个子数据框对应一张表格
  map(\(sub_df) {
    sub_df %>%
      select(-title) %>% # 移除不需要展示在表格内容里的title列
      gt() %>%
      tab_header(title = unique(sub_df$title))
  }) -> gt_table_list

执行后得到的gt_table_list是所有生成完成的gt表格对象列表，可直接按索引取用或批量导出。

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