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)