如何移除R语言flextable中的二级表头？

核心处理逻辑 #

直接删除flextable默认生成的原始表头（即你说的二级表头），再重新构建自定义的合并表头结构，就能避免格式丢失的问题。

修改后的完整代码 #

# 初始化表格
section_11_table <- flextable(section_11)
# 删除默认生成的原始表头（二级表头）
section_11_table <- delete_part(section_11_table, part = "header")

# 保留数值列格式化逻辑
columns_to_format <- c("Less than 6 months %", "Between 6 months to a year %", "Between 1 and 2 years %", "More than 2 years %", "Duration not available %")
section_11_table <- colformat_double(section_11_table, j = columns_to_format, big.mark = ",", digits = 1, suffix = "%")

# 添加第一层合并表头
section_11_table <- add_header_row(
  section_11_table,
  values = c("Local Authority Name", "Less than 6 months",
             "Between 6 months to a year",
             "Between 1 and 2 years",
             "More than 2 years",
             "Duration not available",
             "Total assessments completed"),
  colwidths = c(1, 2, 2, 2, 2, 2, 1)
)

# 添加第二层Count/%表头
section_11_table <- add_header_row(
  section_11_table,
  values = c("", "Count", "%", "Count", "%", "Count", "%", "Count", "%", "Count", "%", ""),
  colwidths = c(1,1,1,1,1,1,1,1,1,1,1,1)
)

# 格式与样式调整
section_11_table <- theme_vanilla(section_11_table)
section_11_table <- autofit(section_11_table)
section_11_table <- align(section_11_table, part = "header", align = "center")
section_11_table <- bold(section_11_table, i = 2, bold = TRUE) # 加粗第二层表头

section_11_table

关键说明 #

• delete_part(..., part = "header")：这一步必须放在添加自定义表头之前，彻底清除默认的二级表头，从根源避免格式冲突。
• 替换原有的set_header_labels逻辑，改用两次add_header_row直接构建你需要的双层表头结构，完全替代原始表头，不会残留多余层级。
• 注意表头行索引：删除原始表头后，新添加的第一行表头索引为1，第二行是2，样式调整时要对应正确的行号。

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