运算符== data.table中的逻辑列不一致

Chr*_*stK 13 r data.table

请参阅以下可重现的示例:

library(data.table)
set.seed(123)
DT <- data.table(A=rep(0.3,10000))
DT[, B := runif(.N) < A]
DT[B == T, .N]
# [1] 3005
DT[, summary(B)]
#    Mode   FALSE    TRUE    NA's
# logical    6995    3005       0
Run Code Online (Sandbox Code Playgroud)

一切看起来都很好,两种方法的"TRUE"值相同.现在用新的替换col B.

DT[, B := runif(.N) < A]
DT[B == T, .N]
# [1] 3331
DT[, summary(B)]
#    Mode   FALSE    TRUE    NA's
# logical    6981    3019       0 
Run Code Online (Sandbox Code Playgroud)

B栏中'T'的计数不同!!! 它是同一列,但一种方法给出3331"TRUE"值,另一种方法给出3019.

当==被绕过时

DT[B != F, .N]
# [1] 3019
DT[, summary(B)]
#    Mode   FALSE    TRUE    NA's
# logical    6981    3019       0 
Run Code Online (Sandbox Code Playgroud)

这又是正确的

我可以在Windows 8.1 x64上使用data.table v1.94和1.9.5重现它.


这是一个更容易重现的例子,没有runif().

require(data.table) ## 1.9.4+
DT = data.table(x = 1:5)
DT[, y := x <= 2L]
#    x     y
# 1: 1  TRUE
# 2: 2  TRUE
# 3: 3 FALSE
# 4: 4 FALSE
# 5: 5 FALSE

DT[y == TRUE, .N]
# [1] 2             <~~~~~~ correct result.

DT[, y := x <= 3L]
#    x     y
# 1: 1  TRUE
# 2: 2  TRUE
# 3: 3  TRUE
# 4: 4 FALSE
# 5: 5 FALSE

DT[y == TRUE, .N]
# [1] 2             <~~~~~~ incorrect result, should be 3!
Run Code Online (Sandbox Code Playgroud)

Mat*_*wle 5

现在在GitHub上修复了v1.9.5.

:=set*掉落次级键(在v1.9.4新增),这样DT[x==y]以后再工作:=set*不需要options(datatable.auto.index=FALSE).只是setkey()正确地删除了二级密钥.增加了23项测试.感谢user36312报告,#885.