sprintf 无效格式 '%d'

Question

这行得通：

> sprintf('%d', c(1, 1.5))
[1] "1" "1"

这不是：

> sprintf('%d', c(1.5, 1))
Error in sprintf("%d", c(1.5, 1)) : 
  invalid format '%d'; use format %f, %e, %g or %a for numeric objects

为什么？

Answer 1

这实际上是一个非常有趣的问题。首先，%d 代表整数。如果可能，vector 参数会被回收，但如果它是 c(1.5, 1)，它将在 sprintf() 尝试用 1.5（不是整数）替换 %d 时失败。

我认为这可能与R中整数和双精度都是数字模式有关，例如：

storage.mode(c(1.5, 1))
# [1] "double"
storage.mode(c(1, 1.5))
# [1] "double"
mode(c(1,1.5))
# [1] "numeric"
mode(c(1.5,1))
# [1] "numeric"

因此，两个向量都应存储为双精度。 R language definition 和 ? numeric 的文档中有关矢量的更多信息：

潜在的混淆是 R 使用模式“数字”来表示“双精度或整数””

我可能在the underlying C code 中找到了解释发生了什么的行：

if(TYPEOF(_this) == REALSXP) {
double r = REAL(_this)[0];
if((double)((int) r) == r)
_this = coerceVector(_this, INTSXP);

此代码执行以下操作：如果向量类型为REALSXP（表示数字），则将向量的第一个成员转换为double r。然后将r 转换为整数然后加倍，如果字节仍然相同，则将整个向量转换为INTSXP。重要的是，这段代码只检查向量的第一个元素；如果该元素可以强制为整数，则强制整个向量，否则代码会出错。

为了验证这一假设，可以使用自定义 sprintf() 编译 R，其中 double r = REAL(_this)[0]; 更改为 double r = REAL(_this)[1]; 并测试 c(1.5, 1) 现在是否有效。