为何signif函数对0.6745的银行家偶数舍入不生效？

你的函数得到非预期结果，核心原因有两点：

1. 浮点数精度的固有缺陷 #

十进制的0.6745无法用二进制浮点数精确存储，在R中实际存储的是一个略大于0.6745的值（执行print(0.6745, digits=20)可查看真实值：0.67450000000000007099）。当你计算x * 10^3时，得到的不是精确的674.5，而是674.500000000000109139——这个值大于674.5，因此round()会向上取整到675，最终除以1000得到0.675。

2. 函数逻辑的冗余与误差放大 #

你函数里的signif(round(x * 10^dig), dig)属于冗余操作：round(x*10^dig)得到的是整数，signif(整数, dig)不会改变该整数的值，反而让前面的浮点数误差被固化，最终导致结果偏离银行家舍入规则。

要实现符合银行家舍入规则的3位有效数字舍入，直接使用R内置的signif()函数即可，它原生遵循银行家规则且自动处理有效数字：

Z_Value <- c(-0.6745, 0.6745)
Z_Value_Round <- signif(Z_Value, 3)
# 输出结果：-0.674 0.674

如果要保留你原本设定的“绝对值≥10^dig时舍入为整数”的逻辑，可简化函数如下：

sig <- function(x, dig = 3) {
  ifelse(abs(x) >= 10^dig, round(x), signif(x, dig))
}

Z_Value_Round <- sig(Z_Value)
# 输出结果：-0.674 0.674

进阶补充：规避浮点数精度问题 #

如果需要完全消除浮点数带来的精度误差，可以使用decimal包处理精确十进制运算：

install.packages("decimal")
library(decimal)

# 用字符串初始化精确十进制数
Z_Value_dec <- decimal(c("-0.6745", "0.6745"))
# 按有效数字规则舍入（需自行调整小数位逻辑适配有效数字）
Z_Value_Round_dec <- round(Z_Value_dec, 3)

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