使用t1flex处理table1生成的重复列名报错问题求助

问题描述 #

在R Markdown中使用table1包创建多层分组表格（语法：table1(~x|l1/l2, data = df)）时，若不同l1分组下的l2子组观测数相同，会出现列头重复的问题。执行转换代码：

table1(~x | l1/l2, data = df) %>% t1flex() %>% flextable::autofit()

会触发报错：

Error in flextable(data) : duplicated col_keys: x(N=100), y(N=100)

尝试将table1对象转为数据框并修改重复列名后，无法还原多层列头结构，现寻求以下任一可行方案：

1. 让t1flex忽略重复列名的方法
2. 将重命名列头后的data.frame还原为table1多层样式表格的方法
3. 与flextable视觉效果和功能一致的替代函数/包
4. 直接修改HTML代码且不破坏flextable输出的可靠方法

注：可手动修改列名，无需通用解决方案，只要能生成可用表格即可。

解决方案 #

方案1：手动处理数据框后添加多层表头 #

先将table1对象转为数据框，修改重复列名后，用flextable的add_header_row手动构建多层表头：

library(table1)
library(flextable)

# 生成table1对象
t1_obj <- table1(~ x | l1/l2, data = df)

# 转为数据框并修改重复列名（根据你的分组手动调整）
t1_df <- as.data.frame(t1_obj)
colnames(t1_df) <- c("特征", "分组A_子组1(N=100)", "分组A_子组2(N=100)", 
                     "分组B_子组1(N=100)", "分组B_子组2(N=100)")

# 构建flextable并添加多层表头
ft <- flextable(t1_df) %>%
  add_header_row(
    values = c("", "分组A", "分组A", "分组B", "分组B"), # 上层表头
    colwidths = c(1, 2, 2) # 对应列宽分配：第一列占1格，分组A占2格，分组B占2格
  ) %>%
  autofit()

# 输出表格
ft

方案2：自定义table1列标签避免重复 #

通过自定义labels函数，给重复的子组列名添加分组前缀，从源头避免重复：

library(table1)
library(flextable)

# 自定义列标签生成函数（根据你的分组结构调整）
my_labels <- function(x, ...) {
  raw_labels <- table1:::labels.default(x, ...)
  # 给重复标签加序号区分
  unique_labels <- make.unique(raw_labels, sep = "_")
  # 替换序号为分组前缀（示例：将子组1_1改为分组A_子组1）
  unique_labels <- gsub("(子组1)_1", "分组A_\\1", unique_labels)
  unique_labels <- gsub("(子组1)_2", "分组B_\\1", unique_labels)
  unique_labels <- gsub("(子组2)_1", "分组A_\\2", unique_labels)
  unique_labels <- gsub("(子组2)_2", "分组B_\\2", unique_labels)
  return(unique_labels)
}

# 生成带唯一列名的table1对象
t1_obj <- table1(~ x | l1/l2, data = df, labels = my_labels)

# 正常转flextable
t1_obj %>% t1flex() %>% autofit()

方案3：使用gtsummary替代table1 #

gtsummary包对多层分组的列名处理更稳定，且原生支持转为flextable，视觉效果一致：

library(gtsummary)
library(flextable)

# 生成多层分组表格并转flextable
df %>%
  tbl_summary(
    by = c(l1, l2), # 指定多层分组
    include = x # 指定要展示的变量
  ) %>%
  as_flex_table() %>%
  autofit()

方案4：直接使用table1的HTML输出并调整样式 #

如果不需要强制用flextable，可以直接输出table1的HTML结果，通过CSS调整宽度，无需转换：

library(table1)
library(htmltools)

t1_obj <- table1(~ x | l1/l2, data = df)

# 添加自定义CSS调整表格宽度（可根据需求修改）
tagList(
  tags$style("table.table1 {width: 100%; border-collapse: collapse;}"),
  t1_obj
)

内容的提问来源于stack exchange，提问作者David Köhler