如何创建带有中间内部标题行的flextable表格

可以通过构造包含内部标题行的合并数据框，再利用flextable的单元格合并和格式设置功能实现需求，具体步骤如下：

步骤1：准备数据与构造标题行 #

先拆分两组目标数据，然后创建一个与数据列数匹配的标题行数据框，确保列名与原数据一致：

library(flextable)
library(dplyr)

# 拆分两组mtcars数据
data_group1 <- mtcars[, 1:6]
data_group2 <- mtcars[, 1:6]

# 创建内部标题行，所有列填充标题文本，列名与数据对齐
internal_header <- data.frame(
  matrix("Results for XXXX", nrow = 1, ncol = ncol(data_group1))
)
colnames(internal_header) <- colnames(data_group1)

步骤2：合并数据并生成flextable #

将第一组数据、标题行、第二组数据按顺序合并，再转换为flextable，最后对标题行进行格式调整：

# 合并所有内容
combined_data <- bind_rows(data_group1, internal_header, data_group2)

# 转换为flextable
final_ft <- flextable(combined_data)

# 定位标题行位置（第一组数据行数 + 1）
header_row_index <- nrow(data_group1) + 1

# 格式设置：合并标题行所有单元格、加粗、居中、添加背景色
final_ft <- final_ft %>%
  merge_at(i = header_row_index, j = 1:ncol(data_group1), part = "body") %>%
  bold(i = header_row_index, bold = TRUE, part = "body") %>%
  align(i = header_row_index, align = "center", part = "body") %>%
  bg(i = header_row_index, bg = "#f5f5f5", part = "body")

效果说明 #

上述代码生成的表格会在两组mtcars数据之间插入居中加粗的Results for XXXX标题行，完全匹配你描述的“合并两个独立flextable（其中第二个带标题行）”的效果。

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