如何消除flextable表格中列间的过多空白？

你遇到的第二列P与第三列enrichment之间的空白，主要是autofit()与全局列宽设置的冲突，加上表头空列被分配了不必要的宽度导致的，以下是两种可行的解决方法：

方法一：调整函数执行顺序+精准设置列宽 #

把autofit()放在全局width()设置之前，再针对不同内容的列单独配置宽度，避免统一设置带来的布局混乱：

library(dplyr)
library(flextable)

top_colnames = c(rep(" ", 4), "Selection Region Set", rep(" ", 4))
top_colwidths = rep(1, 9)

second_colnames = c(" ", "CKB", " ", "UKB", " ", "CKB-only", " ", "CKB+UKB", " ")
second_colwidths = rep(1, 9)

flextable(final) %>%
  set_header_labels(values = c("VIPs", rep(c("enrichment", "P"), 4))) %>%
  add_header_row(values = second_colnames, colwidths = second_colwidths, top=TRUE) %>%
  add_header_row(values = top_colnames, colwidths = top_colwidths, top=TRUE) %>%
  align(i = 1, align='left') %>%
  padding(i=2:3, j=1, padding.left=5) %>%
  padding(i=4:5, j=1, padding.left=10) %>%
  padding(i=6:7, j=1, padding.left=15) %>%
  padding(i=8, j=1, padding.left=20) %>%
  fontsize(size=10) %>%
  fontsize(size=10, part='header') %>%
  line_spacing(space = 1, j=1:9, part = "all") %>%
  autofit() %>%  # 先让表格自动适配内容基础宽度
  width(j=1, width=1.5) %>%  # 给第一列VIPs分配足够宽度
  width(j=c(2,4,6,8), width=1.2) %>%  # 给enrichment列设置合适宽度
  width(j=c(3,5,7,9), width=0.8)  # P列内容短，设置较窄宽度

方法二：启用固定布局强制列宽 #

通过set_table_properties()设置固定布局，让列宽严格按照你指定的数值生效，避免autofit自动分配多余宽度：

library(dplyr)
library(flextable)

top_colnames = c(rep(" ", 4), "Selection Region Set", rep(" ", 4))
top_colwidths = rep(1, 9)

second_colnames = c(" ", "CKB", " ", "UKB", " ", "CKB-only", " ", "CKB+UKB", " ")
second_colwidths = rep(1, 9)

flextable(final) %>%
  set_header_labels(values = c("VIPs", rep(c("enrichment", "P"), 4))) %>%
  add_header_row(values = second_colnames, colwidths = second_colwidths, top=TRUE) %>%
  add_header_row(values = top_colnames, colwidths = top_colwidths, top=TRUE) %>%
  align(i = 1, align='left') %>%
  padding(i=2:3, j=1, padding.left=5) %>%
  padding(i=4:5, j=1, padding.left=10) %>%
  padding(i=6:7, j=1, padding.left=15) %>%
  padding(i=8, j=1, padding.left=20) %>%
  fontsize(size=10) %>%
  fontsize(size=10, part='header') %>%
  line_spacing(space = 1, j=1:9, part = "all") %>%
  set_table_properties(layout = "fixed") %>%  # 启用固定布局模式
  width(j=1, width=1.5) %>%
  width(j=c(2,4,6,8), width=1.2) %>%
  width(j=c(3,5,7,9), width=0.8)

关键说明 #

原代码中width(width=0.85)给所有列统一设置宽度，后续调用autofit()会打乱这个配置，导致表头中的空列被自动分配多余宽度，最终出现列间空白。通过针对性设置列宽或启用固定布局，就能让表格布局更紧凑。

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