如何用科学计数法批量显示多列中阈值外的数值？

针对你需要批量处理多列、仅对阈值外数值应用科学计数法的需求，这里提供两种简洁的实现方式：

方式一：用purrr::reduce()批量迭代列 #

借助purrr包的reduce函数，遍历目标列列表，自动为每一列应用格式规则，避免重复调用fmt_scientific()：

library(gt)
library(purrr)

fakedata <- data.frame(
  A = c(0.000001, 0.001, 1, 10000, 10000000),
  B = c(1, 2, 3, 4, 1e9),
  C = c(1, 1, 2e-8, 3e7, 0)
)

# 指定需要处理的列（也可用everything()选择所有列）
target_cols <- c("A", "B", "C")

gt(fakedata) %>%
  fmt_number(n_sigfig = 2) %>%
  reduce(target_cols, function(gt_obj, col) {
    gt_obj %>% fmt_scientific(
      columns = all_of(col),
      rows = !!sym(col) < 1e-4 | !!sym(col) > 1e5
    )
  }, .init = .)

代码中!!sym(col)用于动态解析列名，实现对每一列单独判断阈值，reduce会自动将格式规则依次叠加到gt表格对象上。

方式二：自定义格式函数结合fmt() #

通过自定义格式函数统一控制数值显示规则，一次调用fmt()即可批量处理所有目标列：

library(gt)

fakedata <- data.frame(
  A = c(0.000001, 0.001, 1, 10000, 10000000),
  B = c(1, 2, 3, 4, 1e9),
  C = c(1, 1, 2e-8, 3e7, 0)
)

# 自定义格式逻辑：阈值外转科学计数法，其余保留标准格式
custom_fmt <- function(x) {
  ifelse(
    x < 1e-4 | x > 1e5,
    format(x, scientific = TRUE, digits = 2),
    format(x, scientific = FALSE, digits = 2)
  )
}

gt(fakedata) %>%
  fmt(
    columns = everything(), # 可替换为target_cols指定特定列
    fns = custom_fmt
  )

这种方式更简洁，自定义函数内可灵活调整格式细节（比如小数位数、科学计数法的指数样式等）。

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