使用delete_columns后如何重新格式化flextable表格？

直接用delete_rows和delete_columns会破坏as_flextable.table生成的合并表头结构，推荐两种更稳妥的方案：

方案一：先处理xtabs对象，避免生成Total行列 #

先提取xtabs结果的子集，去掉自动生成的Total行和列，再转换为flextable，生成的表格自带正确的表头合并格式：

xt <- xtabs(~mpg + cyl, head(mtcars))
# 移除最后一行（Total行）和最后一列（Total列）
xt_sub <- xt[-nrow(xt), -ncol(xt)]
# 转换为flextable，无需后续格式修复
ft <- as_flextable(xt_sub, 
                   include.row_percent = FALSE, 
                   include.column_percent = FALSE, 
                   include.table_percent = FALSE)
ft

方案二：修复已删除Total后的flextable格式 #

如果已经生成了带Total的flextable，删除行列后可以通过重新合并表头、修复边框恢复原格式：

xt <- xtabs(~mpg + cyl, head(mtcars))
ft <- as_flextable(xt, 
                   include.row_percent = FALSE, 
                   include.column_percent = FALSE, 
                   include.table_percent = FALSE)

# 删除Total行和列（用nrow/ncol避免硬编码行数）
ft <- delete_rows(ft, i = nrow(ft$body$content), part = "body")
ft <- delete_columns(ft, j = ncol(ft$body$content))

# 重新合并表头：让"cyl"跨列覆盖所有气缸数值列
ft <- merge_at(ft, i = 1, j = 2:ncol(ft), part = "header")
# 修复边框对齐问题
ft <- fix_border_issues(ft)

ft

两种方案都能实现你要的效果：cyl表头跨列覆盖气缸数值列，仅保留一个mpg表头，且格式正常。

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