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中，integer和double都是数字模式，例如：

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"

因此，两个向量应存储为double。 有关R语言定义和文档中的向量的更多信息? numeric ? numeric ：

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

我可能已经在底层的C代码中找到了解释发生了什么的行：

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

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

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