使用tbl_stack合并表格后导出docx时flextable新增列问题求助

问题描述 #

我使用gtsummary包的tbl_stack函数合并了两个带分组标题的表格，在R环境中显示完全正常，但将文档导出为.docx格式时，flextable会为分组标题新增一列。请问如何设置才能让分组标题仅作为分隔两个表格的行，而非生成全新列？

相关代码如下：

library(gtsummary)

table1a<-trial %>%
  tbl_summary(
    by = trt,
    include = c(marker, age, stage)
  )

table1b<-trial %>%
  tbl_summary(
    by = trt,
    include = c(response, death)
  )

table1<-tbl_stack(list(table1a, table1b),
      group_header = c("First section","Second section"))

table1f<-as_flex_table(table1)
flextable::save_as_docx(table1f, path = "~/Desktop/table.docx")

（左侧为R中的显示效果，右侧为Word中的显示效果）

解决方案 #

问题根源是转成flextable后，分组标题行的单元格没有自动跨列合并，导致视觉上多了一列。可以通过以下两种方法解决：

方法1：转flextable后手动合并标题行

在生成flextable对象后，定位到分组标题所在行，合并该行的所有单元格：

library(gtsummary)
library(flextable)

# 生成原表格
table1a <- trial %>%
  tbl_summary(by = trt, include = c(marker, age, stage))
table1b <- trial %>%
  tbl_summary(by = trt, include = c(response, death))
table1 <- tbl_stack(list(table1a, table1b), group_header = c("第一部分", "第二部分"))

# 转flextable并处理标题行
table1f <- as_flex_table(table1) %>%
  # 定位分组标题行（这些行的统计列是空值）
  merge_h(i = which(is.na(.$body$dataset$stat_1))) %>%
  # 设置标题居中（可选）
  align(i = which(is.na(.$body$dataset$stat_1)), align = "center")

# 导出docx
save_as_docx(table1f, path = "~/Desktop/table.docx")

方法2：在gtsummary层面提前设置合并

直接在tbl_stack结果中通过modify_table_styling设置分组标题行跨列合并，转flextable时会保留该设置：

library(gtsummary)
library(flextable)

# 生成原表格
table1a <- trial %>%
  tbl_summary(by = trt, include = c(marker, age, stage))
table1b <- trial %>%
  tbl_summary(by = trt, include = c(response, death))

# 合并表格并设置标题跨列
table1 <- tbl_stack(list(table1a, table1b), group_header = c("第一部分", "第二部分")) %>%
  modify_table_styling(
    # 定位分组标题行
    locations = list(row_type = "header", row = which(row_type == "header" & !is.na(groupname_col))),
    cols = everything(),  # 选中所有列
    align = "center",     # 居中对齐
    merge = TRUE          # 合并单元格
  )

# 转flextable并导出
table1f <- as_flex_table(table1)
save_as_docx(table1f, path = "~/Desktop/table.docx")

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