如何控制R语言科学计数法幂次的数字位数，实现e-4而非e-04的输出

你可以通过正则表达式处理format()函数的输出结果，快速实现幂次部分前导零的删除，无需安装额外第三方包，具体实现代码如下：

# 定义示例数值
num <- -0.000173929
# 第一步：先按需求指定小数位数输出科学计数法结果
raw_format <- format(num, digits = 2, scientific = TRUE)
# 第二步：正则替换移除指数部分的前导零
result <- sub("e([+-])0*(\\d+)$", "e\\1\\2", raw_format)
print(result)
# 输出：[1] "-1.7e-4"

上述正则匹配规则对多位数指数也兼容，例如1.2e-012会自动转换为1.2e-12。

如果需要频繁使用该格式，可将逻辑封装为自定义函数，支持批量处理数值向量：

custom_sci_format <- function(x, digits = NULL) {
  # 未指定digits时调用全局默认精度
  if (is.null(digits)) digits <- getOption("digits")
  raw_res <- format(x, digits = digits, scientific = TRUE)
  sub("e([+-])0*(\\d+)$", "e\\1\\2", raw_res)
}

# 单值测试
custom_sci_format(num, digits = 2)
# 输出：[1] "-1.7e-4"

# 多值批量测试
test_nums <- c(-0.000173929, 12345, 0.0026)
custom_sci_format(test_nums, digits = 2)
# 输出：[1] "-1.7e-4" "1.2e+4"  "2.6e-3"

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