我有以下代码，结果如下图所示。但是，我希望header_row在列上对齐中心。（作为参数传递：colwidths，我一直在搜索，查阅了手册（但我是R的新手，所以我的理解力很差），但我很困惑。表中的其他内容都应该有它的对齐方式。

ft <- flextable(df_BAS_sum)
ft <- set_caption(ft, caption =sprintf("Tabell 1. Arbetsmarknadsdata och nyckeltal för olika geografier, 20-64 år - %s %s", month, yr), align_with_table = F)
ft <- add_header_row(ft, colwidths = c(1,2,4,3), values = c("","Arbetskraften","Ej i arbetskraften","Nyckeltal"))
ft <- colformat_num(x = ft,
                    big.mark=" ", decimal.mark = ",",
                    na_str = "N/A")
ft <- theme_vanilla(ft)
ft

谢谢你的洞察力！