R语言flextable表头首行外边框缺失问题求助

在使用flextable构建带合并表头的表格时，常会遇到表头首行外边框消失的问题——即使提前调用border_outer()，在执行表头合并操作后，首行的外边框仍会丢失。以下是具体场景和解决方案：

数据与原代码 #

表格数据 #

structure(list(groupName = c("Group A", "Group A", "Group A", "Group A", "Group A",
                             "Group B", "Group B", "Group B", "Group B", "Group B"),
               ID = c("14243", "14363", "14373", "14934", "14980", 
                      "14400", "14488", "14513", "14549", "15407"),
               `Day -15` = c(NA, NA, NA, 174, 143, NA, NA, NA, NA, 169),
               `Day -13` = c(NA, NA, NA, 164, 132, NA, NA, NA, NA, 178),
               `Day -12` = c(NA_real_, NA_real_, NA_real_, NA_real_, NA_real_,
                             NA_real_, NA_real_, NA_real_, NA_real_, NA_real_),
               `Day -11` = c(NA, NA, NA, NA, 189, NA, 213, NA, NA, 204),
               `Day -10` = c(NA, NA, NA, 187, NA, NA, NA, NA, NA, NA), 
               `Day -9` = c(NA, NA, NA, NA, 178, NA, 204, 227, 257, 232), 
               `Day -8` = c(NA, NA, NA, 286, NA, NA, NA, NA, NA, NA),
               `Day -7` = c(NA, NA, NA, NA, NA, NA, 258, 311, 291, NA)),
          row.names = c(NA, -10L),
          class = c("tbl_df", "tbl", "data.frame"))

原构建代码（存在边框问题） #

flx <- flextable(tbl2) %>% 
  border_outer() %>% 
  add_header_row(values = c(
    "groupName",
    "ID",
    rep("measurement", ncol(tbl2) - 2)
  )) %>% 
  merge_h(part = "header") %>% 
  merge_v(part = "header") %>% 
  valign(valign = "bottom", part = "header") %>% 
  align(align = "center", part = "all")

解决方案 #

问题根源在于：表头合并操作（merge_h/merge_v）会重置表头单元格的边框属性，提前设置的外边框会被覆盖。因此需要在合并操作完成后，针对表头部分重新设置外边框。

修改后的完整代码：

flx <- flextable(tbl2) %>% 
  # 先添加表头并完成合并操作
  add_header_row(values = c(
    "groupName",
    "ID",
    rep("measurement", ncol(tbl2) - 2)
  )) %>% 
  merge_h(part = "header") %>% 
  merge_v(part = "header") %>% 
  valign(valign = "bottom", part = "header") %>% 
  align(align = "center", part = "all") %>% 
  # 合并后分别设置表头和主体的外边框
  border_outer(part = "header") %>% 
  border_outer(part = "body")

关键说明 #

1. 将border_outer()移至所有表头操作之后，并且通过part参数分别指定表头和主体部分，确保两者的外边框都正常显示。
2. 无需使用border_inner_v等会添加多余内边框的函数，仅通过合并后设置外边框即可解决缺失问题。

内容的提问来源于stack exchange，提问作者Jakub Małecki