r - ERROR : ifelse(d==0, NA,d)，其中d是integer64返回废话(以 "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？

编辑1:用data.table操作替换ifelse

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

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

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

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

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

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

1. 再次将 integer64 类分配给 ifelse 的结果(因为它由于 ifelse 的 known deficiencies 而丢失)和<
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 ...