R语言sprintf函数行为不一致原因咨询

问题复现 #

执行以下R代码：

vec = c(0.01, seq(0.1, to = 0.95, by  = 0.05), 0.99)
RET <- lapply(vec, FUN = function(x){
  tryCatch({
    test <- sprintf("%02d", 100*x)
    print(paste0(x, " - correct"))
  },
  error = function(cond) {
    print(paste0(x, " - error"))
  })
})

运行后部分值（如0.15、0.30）会触发报错，错误信息如下：

Error in sprintf("%02d", 100 * x) :  invalid format '%02d'; use format %f, %e, %g or %a for numeric objects

但单独取出这些报错的x值执行sprintf("%02d", 100*x)时，却能正常运行。已知通过as.integer(100*x)可解决问题，现需明确该行为不一致的根本原因。

核心原因：浮点数二进制存储的精度限制 #

这本质是R中浮点数采用二进制存储的精度限制导致的：

• 人类常用的十进制小数（如0.1、0.05），在二进制体系中属于无限循环小数，无法被精确存储。例如0.15在R中实际存储的是一个非常接近0.15但存在微小偏差的二进制近似值。
• 计算100*x时，以x=0.15为例，理论结果为15，但实际计算得到的是14.999999999999998（可通过print(100*0.15, digits=20)查看真实存储值）——这个数仅在视觉上接近整数，但并非精确整数。
• sprintf的%02d格式对输入有严格要求：必须是精确整数（或可被强制转换为整数的数值）。当传入的是接近整数但非精确整数的浮点数时，就会触发格式不匹配的错误。

单独执行看似正常的原因 #

你观察到的“单独执行正常”是视觉错觉：

• 直接赋值x=0.15并计算100*x时，R默认的打印格式会将带偏差的近似值显示为15，但底层存储的依然是不精确的浮点数。
• 若严格从vec中提取报错的x值（而非直接手动赋值x=0.15）再执行，同样会触发报错。

as.integer(100*x)的解决原理 #

as.integer(100*x)能解决问题，是因为它将接近整数的浮点数转换为真正的整数类型，满足%02d格式对输入类型的要求。如果担心截断取整带来误差，也可以先通过round(100*x)进行四舍五入，再转换为整数，结果会更稳妥。

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