错误：ifelse(d==0,NA,d)，其中 d 是整数64 返回无意义（以“num”形式）

Question

显然ifelse完全改变了数字并且不保留输入的数据类型

例如：

library(bit64)
d <- c(1:10,NA,12,0) %>% as.integer64()
d %>% str
Class 'integer64'  num [1:13] 4.94e-324 9.88e-324 1.48e-323 1.98e-323 2.47e-323 ...

ifelse(d==0,NA,d) %>% str
 num [1:13] 4.94e-324 9.88e-324 1.48e-323 1.98e-323 2.47e-323 ...
ifelse(d==0,5,d) %>% str
num [1:13] 4.94e-324 9.88e-324 1.48e-323 1.98e-323 2.47e-323 ...
ifelse(d==5,50,d) %>% str
num [1:13] 4.94e-324 9.88e-324 1.48e-323 1.98e-323 5.00e+01 ...

上图： - 输出中的数字是无意义的 - 输出的格式是“num”

这是一个已知问题吗？

有其他函数可以代替吗ifelse？

ifelseEdit1：用 data.table 操作替换

d <- data.table(a=c(1:10,NA,12,0) %>% as.integer64 )
d[a==0,a:=NA]
d
                       a
 1:                   1
 2:                   2
 3:                   3
 4:                   4
 5:                   5
 6:                   6
 7:                   7
 8:                   8
 9:                   9
10:                  10
11:                  NA
12:                  12
13: 9218868437227407266

#obve: still incorrect, NA was interpreted as a nonsense integer64

#now this works:
    d <- data.table(a=c(1:10,NA,12,0) %>% as.integer64 )
d[a==0,a:=as.integer64(NA)]
d
     a
 1:  1
 2:  2
 3:  3
 4:  4
 5:  5
 6:  6
 7:  7
 8:  8
 9:  9
10: 10
11: NA
12: 12
13: NA

Edit2：尝试填充 ifelse as.integer64() 的输出。不起作用！

d <- c(1:10,NA,12,0) %>% as.integer64()
ifelse(d==0,as.integer64(NA),as.integer64(d))
 [1] 4.940656e-324 9.881313e-324 1.482197e-323 1.976263e-323 2.470328e-323 2.964394e-323 3.458460e-323 3.952525e-323
 [9] 4.446591e-323 4.940656e-323            NA 5.928788e-323  0.000000e+00

编辑3：添加源码包（bit64）

Answer 1

integer64包内部的数据类型bit64使用 R 中唯一可用的 64 位数据类型：double

这意味着该包的当前实现存在一些限制，例如：

• str：继承自 Base R，无法正确打印值
• NA必须替换为NA_integer64_

请阅读文档了解更多详细信息：https://cran.r-project.org/web/packages/bit64/bit64.pdf

要使您的示例正常工作，ifelse您必须

1. 将integer64类分配给 Again 的结果ifelse（因为它由于 的已知缺陷ifelse而丢失）并且
2. 使用NA_integer64_而不是NA

像这样：

library(bit64)
library(dplyr)
d <- c(1:10,NA_integer64_,12,0) %>% as.integer64()
d
# integer64
# [1] 1  2  3  4  5  6  7  8  9  10 0  12 0 
class(d)
# [1] "integer64"
e <- ifelse(d==0,NA_integer64_,d)
e
# [1] 4.940656e-324 9.881313e-324 1.482197e-323 1.976263e-323 2.470328e-323 2.964394e-323 3.458460e-323 3.952525e-323 4.446591e-323
# [10] 4.940656e-323  0.000000e+00 5.928788e-323  0.000000e+00
class(e)
# [1] "numeric"
class(e) <- "integer64"
e
# integer64
# [1] 1    2    3    4    5    6    7    8    9    10   <NA> 12   <NA>

如果您现在调用str（ 不支持）bit64，您将再次看到垃圾：

> str(e)        # same as:  e %>% str
Class 'integer64'  num [1:13] 4.94e-324 9.88e-324 1.48e-323 1.98e-323 2.47e-323 ...