如何用flextable一行代码批量格式化多列数值？

当然可以！你完全不用反复调用set_formatter来逐个处理列，flextable提供了更简洁的批量处理方式，而且能在不转换数据类型的前提下完成格式化需求。下面给你几种实用的方法：

1. 用set_formatter_cols快速批量设置（推荐） #

set_formatter_cols函数支持通过列范围、列名向量来为多列统一应用格式化规则，代码非常简洁：

首先定义两种格式化逻辑的函数：

library(flextable)
library(tibble)

# 处理大于1000的数值：四舍五入到千位+千分位逗号
fmt_large_num <- function(x) format(round(x, -3), big.mark = ",", trim = TRUE)
# 处理小于1的数值：保留两位小数
fmt_small_num <- function(x) round(x, 2)

然后只用两行格式化代码就搞定所有列：

set.seed(100)
tib <- tibble(a = letters[1:4], 
              b = runif(4)*sample(c(10000, 1000000, 10000000), 4, replace = TRUE), 
              c = runif(4)*sample(c(10000, 1000000, 10000000), 4, replace = TRUE), 
              d = runif(4)*sample(c(10000, 1000000, 10000000), 4, replace = TRUE), 
              e = runif(4), 
              f = runif(4))

regulartable(tib) %>% 
  set_formatter_cols(b:d = fmt_large_num, e:f = fmt_small_num) %>% 
  print(preview = "docx")

这里b:d直接指定了列范围，e:f同理，一步完成两组列的格式化。

2. 用set_formatter的.list参数批量传递规则 #

如果需要更灵活的列映射（比如列名不连续），可以用set_formatter的.list参数传入一个命名列表，一次完成所有列的设置：

regulartable(tib) %>% 
  set_formatter(.list = list(
    b = fmt_large_num,
    c = fmt_large_num,
    d = fmt_large_num,
    e = fmt_small_num,
    f = fmt_small_num
  )) %>% 
  print(preview = "docx")

3. 自定义类似huxtable的set_formatter_type函数 #

如果你需要频繁复用这种“按数值类型/规则分组格式化”的逻辑，可以自己封装一个函数，实现类似huxtable的类型化格式化：

# 自定义批量格式化函数
set_formatter_type <- function(ft, large_cols, small_cols) {
  ft %>% 
    set_formatter_cols(!!large_cols := fmt_large_num) %>% 
    set_formatter_cols(!!small_cols := fmt_small_num)
}

# 使用自定义函数，只需传入列名即可
regulartable(tib) %>% 
  set_formatter_type(large_cols = c("b", "c", "d"), small_cols = c("e", "f")) %>% 
  print(preview = "docx")

这样处理的优势在于：所有格式化都在flextable内部完成，不需要提前把数值转成字符型，既保持了数据的数值属性，又能输出符合要求的格式化表格。

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