Flextable如何设置与列规则不同的行小数格式（如n行无小数）

使用R语言flextable包生成表格时，其余格式均符合预期，但标签为n的行需要设置为不显示小数位，直接对原始数据框中该行数值做round()舍入无法实现目标效果。
目标效果参考图

原始可复现代码 #

library(flextable)

tab_tbl <- tibble(Date = c( "2000-12-27", "2000-12-28", "2000-12-29",  "2000-12-30", "2000-12-30", "n", "Manster"  ),
                          Col1    = c(runif(5), 5, 3.75325),
                          Col2    = c(runif(5), 5, 4.3892), 
                          Col3    = c(runif(5), 5, 5.789)
  )

tab_tbl[ , 2] <- round( tab_tbl[ , 2], 3) 
tab_tbl[ , 3:4] <- round( tab_tbl[ , 3:4], 2)
tab_tbl[6, 2:4] <- round( tab_tbl[6, 2:4], 0) 

small_border = fp_border(color="gray", width = 1)

my_table <- flextable( tab_tbl )

my_table %>%
  width(j=1:4, width = 1.2) %>%
  flextable::align(align = "center", j = c(2:4), part = "all") %>%
  hline( i=5,  border = small_border )

直接在数据框层面round无效，是因为flextable默认会对整列应用统一的数字格式化规则：给列设置了3位/2位小数后，哪怕单元格里存的是整数，渲染时也会自动补全对应位数的小数后缀（比如5会被显示为5.000/5.00），原始数据的精度修改会被列级格式覆盖。

使用flextable自带的colformat_num()函数，在渲染阶段单独定位n所在的行，给该行单独设置小数位数为0即可，不需要提前在数据框中修改该行的round值。

修正后完整代码 #

library(flextable)
library(tibble)

# 可选：固定随机种子保证复现结果一致
set.seed(123)
tab_tbl <- tibble(Date = c( "2000-12-27", "2000-12-28", "2000-12-29",  "2000-12-30", "2000-12-30", "n", "Manster"  ),
                  Col1    = c(runif(5), 5, 3.75325),
                  Col2    = c(runif(5), 5, 4.3892), 
                  Col3    = c(runif(5), 5, 5.789)
)

# 仅对全列做基础小数位处理，不需要单独处理n行
tab_tbl[ , 2] <- round( tab_tbl[ , 2], 3) 
tab_tbl[ , 3:4] <- round( tab_tbl[ , 3:4], 2)

small_border = fp_border(color="gray", width = 1)

my_table <- flextable(tab_tbl) %>%
  # 先设置各列默认小数位数
  colformat_num(j = 2, digits = 3) %>%
  colformat_num(j = 3:4, digits = 2) %>%
  # 单独定位Date列为n的行，设置小数位为0，用公式定位比硬编码行号更稳妥
  colformat_num(i = ~ Date == "n", j = 2:4, digits = 0) %>%
  width(j=1:4, width = 1.2) %>%
  align(align = "center", j = c(2:4), part = "all") %>%
  hline(i = 5, border = small_border)

# 输出查看表格
my_table

关键说明 #

• 格式设置要在flextable渲染阶段通过专用函数完成，不要依赖原始数据框的数值修改来控制显示格式
• colformat_num()的i参数支持传入行筛选公式，~ Date == "n"会自动匹配Date列值为n的行，后续如果表格行顺序调整也不会失效
• 单独设置行格式后，该行数字会直接显示为整数，不会附带多余的小数位

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