如何在R语言中实现特定数值近似（如0.35取0.4、0.67取0.7）

你遇到的问题其实是R默认的round()函数采用了银行家舍入规则（四舍六入五成双），而不是我们日常用的常规四舍五入。比如对于0.35，round(0.35, 1)可能会返回0.3而不是你预期的0.4，这就是它不满足需求的原因。

下面给你两种基础R的解决方案，不需要额外安装包：

方法一：自定义常规四舍五入函数 #

这个方法通过手动实现常规四舍五入的逻辑，避免银行家舍入的影响：

# 定义函数，digits参数指定保留的小数位数
regular_round <- function(x, digits = 1) {
  scale_factor <- 10^digits
  # 放大数值后加0.5取整，再缩小回原尺度
  as.integer(x * scale_factor + 0.5) / scale_factor
}

# 测试你的例子
regular_round(0.35, 1) # 输出 0.4
regular_round(0.67, 1) # 输出 0.7

这个函数的原理是：把目标数值放大10^digits倍，加上0.5后取整数（相当于把小数点后第二位及以后的部分进行四舍五入），最后再缩小回原来的尺度，完美匹配你要的近似效果。

方法二：使用formatC()函数 #

formatC()函数默认采用常规四舍五入规则，我们可以用它格式化数值后再转回数值型：

# 格式化并转回数值
as.numeric(formatC(0.35, format = "f", digits = 1)) # 输出 0.4
as.numeric(formatC(0.67, format = "f", digits = 1)) # 输出 0.7

format = "f"表示以固定小数格式输出，digits参数指定保留的小数位数，最后用as.numeric()把格式化后的字符串转回数值类型即可。

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