如何通过列索引在flextable中使用set_formatter动态格式化列？

问题背景 #

现有如下数据框：

df = data.frame(col1 = c(NA, -123.3),
                col2 = c(1234.3, NA),
                col3 = 12)

使用自定义函数some_function配合flextable::set_formatter格式化指定列时，静态列名（如col2）可以正常工作：

some_function = function(x, n_decimals, dash_type, suffix = ""){
  ifelse(is.na(x), 
         dash_type,
         paste0(format(round(as.numeric(x), n_decimals), nsmall=n_decimals, big.mark = ","),suffix))
}

# 静态列名有效
df %>%
  flextable() %>%
  set_formatter(col2 = function(x) some_function(x,0,"-"))

但当列名动态变化（需通过列位置或外部变量引用）时，直接使用colnames(df)[2]或外部变量传递列名的方式会失效。

可行解决方案 #

方案1：用set_formatter_at按列位置/动态列名指定

set_formatter_at支持直接传入列索引或列名向量，完美适配动态指定列的场景：

# 按列位置指定（第2列）
df %>%
  flextable() %>%
  set_formatter_at(
    j = 2, 
    formatter = function(x) some_function(x, 0, "-")
  )

# 按动态列名指定
target_col <- colnames(df)[2]
df %>%
  flextable() %>%
  set_formatter_at(
    j = target_col,
    formatter = function(x) some_function(x, 0, "-")
  )

方案2：构造命名列表传递给set_formatter

若仍想使用set_formatter，可先构造命名列表，将目标列名作为列表键，格式化函数作为对应值，再传递给set_formatter：

# 定义动态目标列
target_col <- colnames(df)[2]

# 构造格式化规则列表
formatter_rules <- list()
formatter_rules[[target_col]] <- function(x) some_function(x, 0, "-")

# 应用格式化
df %>%
  flextable() %>%
  set_formatter(formatter_rules)

失效原因说明 #

• set_formatter的参数是命名参数，R不允许直接用表达式（如colnames(df)[2]）作为参数名；
• 直接使用外部变量（如x = function(...)）时，参数名会被解析为字符串"x"，而非变量对应的列名，因此无法匹配目标列。

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