如何在flextable中同时实现负数括号显示、NA替换与千位分隔

我有如下数据框：

df = data.frame(col1 = c(NA,10000,-1,0), col2 = 1:4)

需要实现以下表格格式化需求：

• 负数用括号包裹
• NA值显示为N/A
• 数字添加千位分隔符,

我可以分别通过以下代码实现单个需求：

实现千位分隔符和NA替换：

flextable(data.frame(col1 = c(NA,10000,-1,0), col2 = 1:4)) %>%
  colformat_num(
    big.mark = ",", decimal.mark = ".",
    na_str = "N/A") 

实现负数括号、0显示为-和NA替换：

flextable(data.frame(col1 = c(NA,10000,-1,0), col2 = 1:4)) %>%
  set_formatter(col1 = function(x) ifelse(x < 0, paste0("(",abs(x),")"), ifelse(x == 0, paste("-"), ifelse(is.na(x), paste("N/A"),x))))

但将两者组合后，无法得到预期效果：

flextable(data.frame(col1 = c(NA,10000,-1,0), col2 = 1:4)) %>%
  colformat_num(
    big.mark = ",", decimal.mark = ".",
    na_str = "N/A") %>%
  set_formatter(col1 = function(x) ifelse(x < 0, paste0("(",abs(x),")"), ifelse(x == 0, paste("-"), ifelse(is.na(x), paste("N/A"),x))))

我期望实现的效果如下：

请问如何正确组合实现这些格式化需求？

问题出在执行顺序：colformat_num会把数值转换成带千位分隔符的字符串，后续set_formatter里的x < 0判断会失效（因为x已经是字符串而非数值）。以下是两种可行的解决方式：

方式一：先处理数值逻辑，再添加千位分隔符 #

library(flextable)
library(dplyr) # 用于case_when，也可以用嵌套ifelse

df = data.frame(col1 = c(NA,10000,-1,0), col2 = 1:4)

flextable(df) %>%
  set_formatter(
    col1 = function(x) {
      case_when(
        is.na(x) ~ "N/A",
        x < 0 ~ paste0("(", abs(x), ")"),
        x == 0 ~ "-",
        TRUE ~ as.character(x)
      )
    }
  ) %>%
  colformat_num(
    col = "col1",
    big.mark = ",",
    decimal.mark = ".",
    na_str = "N/A"
  )

方式二：自定义整合所有逻辑的格式化函数 #

library(flextable)
library(scales) # 用于comma函数添加千位分隔符

df = data.frame(col1 = c(NA,10000,-1,0), col2 = 1:4)

custom_format <- function(x) {
  ifelse(is.na(x), 
         "N/A",
         ifelse(x < 0, 
                paste0("(", comma(abs(x)), ")"),
                ifelse(x == 0, 
                       "-", 
                       comma(x))
         )
  )
}

flextable(df) %>%
  set_formatter(col1 = custom_format) %>%
  colformat_num(col = "col2", big.mark = ",", decimal.mark = ".") # 可选：给col2也添加千位分隔符

说明 #

• 方式一中，先通过set_formatter完成数值到目标字符串的转换（负数括号、0为-、NA为N/A），再用colformat_num给正数字符串添加千位分隔符。
• 方式二中，直接用scales::comma在同一个函数里完成千位分隔符添加+所有逻辑判断，一步到位，代码更简洁。

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