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？

Edit1：用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

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

这意味着当前实施包的一些限制，例如： G：

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

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

要使您的示例使用ifelse，您必须

再次将integer64类分配给ifelse的结果（因为known deficiencies因ifelse而丢失）和
使用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 ...

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

1 个答案: