Flextable包：移除列名两词间的点并实现表头居中

核心问题分析 #

1. set_header_labels失效：separate_header生成双层表头后，该函数无法直接修改分层后的表头内容，需针对表头行/列直接修改。
2. 表头未居中：代码中多次用align(align = "left", part = "all")覆盖了居中设置，且分层表头未合并跨列单元格导致无法整体居中。

修正后的代码 #

library(dplyr)
library(flextable)
library(officer)

# 数据定义（保持原内容不变）
CYCLABLE_TOTAL_Piste <- 50
CYCLABLE_DGEEP_Piste <- 200
CYCLABLE_DACV_courante_Piste <- 150
CYCLABLE_A_TOTAL_Piste <- "150"
CYCLABLE_DGEEP_courante_Piste <- 250
CYCLABLE_DACV_courante_Piste <- 200

CYCLABLE_A_1_TOTAL_Piste <- 180
CYCLABLE_DGEEP_prec_Piste <- 300
CYCLABLE_DACV_prec_Piste <- 250

CYCLABLE_TOTAL_Piste <- 2

# 构建数据框
df <- data.frame(
  Echelle = c("AL", "BL", "BL2"),
  "Piste-Cyclable_Totaux"= c(CYCLABLE_TOTAL_Piste, CYCLABLE_DGEEP_Piste, CYCLABLE_DACV_courante_Piste),
  "Piste-Cyclable_2023"  = c(as.character(CYCLABLE_A_TOTAL_Piste), CYCLABLE_DGEEP_courante_Piste, CYCLABLE_DACV_courante_Piste),
  "Piste-Cyclable_2022"  = c(CYCLABLE_A_1_TOTAL_Piste, CYCLABLE_DGEEP_prec_Piste, CYCLABLE_DACV_prec_Piste)
)

# 表格格式化（修正部分）
df <- df |> 
  flextable() |> 
  separate_header(split = "_") |> 
  # 合并第一层表头的3个列，实现跨列居中基础
  merge_h(part = "header", i = 1, j = 2:4) |> 
  # 修改表头文字，替换点为空格
  modify_header(i = 1, j = 2, value = as_paragraph("Piste Cyclable")) |> 
  # 单独设置表头与内容的对齐，避免覆盖
  align(align = "center", part = "header") |> 
  align(align = "left", part = "body", j = 1) |> 
  align(align = "center", part = "body", j = 2:4) |> 
  merge_v(j = 1) |> 
  valign(j = 1, valign = "top") |> 
  colformat_double(digits = 2) |> 
  bg(bg = "#D3D3D3", part = "header") |> 
  bold(part = "header") |> 
  autofit()

df

关键修正点说明 #

• 分层表头修改：使用modify_header直接指定表头第1行、第2列（合并后的单元格）的内容，替换Piste.Cyclable为Piste Cyclable。
• 跨列居中：通过merge_h(part = "header", i = 1, j = 2:4)将三个子列的第一层表头合并为一个单元格，再设置表头整体居中。
• 对齐优先级：分开设置表头和内容区域的对齐方式，避免align(part = "all")的全局覆盖。

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