使用flextable的add_header_row、colwidth>1并save_as_image时右侧边框异常

这不是bug，是你使用vline()时未注意参数范围导致的：

vline(j=2)默认会对表格**所有部分（包括新增的跨列表头行）**的第2列右侧添加竖线。而你新增的表头行里，第一个单元格是跨2列的（colwidths=c(2,2)），给这个跨列单元格右侧加竖线后，会和下方原始表头的竖线重叠，看起来像是重复边框。

解决方法 #

修改vline()的part参数，指定只给表格主体（body）和原始表头（header）添加竖线，跳过跨列的顶部表头（top）：

library(dplyr)
library(flextable)

test <- data.frame(
  Spalte1 = 1:5,
  Spalte2 = letters[1:5],
  Spalte3 = c(TRUE, FALSE, TRUE, FALSE, TRUE),
  Spalte4 = rnorm(5)) 

test %>% flextable() %>%
  add_header_row(colwidths = c(2,2),values = c("eins", "zwei")) %>%
  align(align = "center", part = "all") %>%
  vline(j = 2, part = c("body", "header")) %>%  # 限制竖线添加范围
  save_as_image("test.png")

这样就能避免跨列表头行的重复边框问题。

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