为什么 data.table 的 inner_join 行为不同？

Question

我想使用dplyr 函数inner_join() 将数据框与数据表连接起来。这是我的代码。

library(data.table)
library(dplyr)

DF <- data.frame(x = rep( c("a","b","c"), each=3), 
                 y = rep( c(1,3,6), 3))

DT <- data.table(x = rep( c("a","b","c"), each=3), 
                 y = rep( c(1,3,6), 3))

W <- data.frame(x = c("b","c","d"), 
              foo = c(4,2,9))

当我尝试加入两个数据框时，inner_join() 可以正常工作。

inner_join(DF,W)

Joining by: "x"
  x y foo
1 b 1   4
2 b 3   4
3 b 6   4
4 c 1   2
5 c 3   2
6 c 6   2

但是当我尝试将数据框与数据表连接时，inner_join() 给出了意外的结果。

inner_join(DT,W)

Joining by: "x"
  x y foo
1 b 1   2
2 b 3   2
3 b 6   2
4 c 1   9
5 c 3   9
6 c 6   9

谁能给我一些提示，为什么会发生这种情况？提前感谢您的宝贵时间。

注意：我在 MAC Maverick OS X 10.9.4 上使用 RStudio 版本 0.98.1056，sessionInfo() 是

R version 3.1.1 (2014-07-10)
Platform: x86_64-apple-darwin13.1.0 (64-bit)

locale:
[1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] dplyr_0.2        data.table_1.9.2

loaded via a namespace (and not attached):
[1] assertthat_0.1 parallel_3.1.1 plyr_1.8.1     Rcpp_0.11.2    reshape2_1.4  
[6] stringr_0.6.2  tools_3.1.1   

Answer 1

David 提到的因素和字符列之间的bug in data.table 是正确的，但它仍然没有修复。但不幸的是，这是一个红鲱鱼，并且不是你的麻烦之源。

但是，这是因为dplyr v0.2中没有inner_join.data.table方法，因此它调用了inner_join.data.frame方法（因为data.table也是data.frame）。

require(dplyr) ## 0.2 CRAN
require(data.table) ## 1.9.2

methods(inner_join)
# [1] inner_join.data.frame* inner_join.tbl_df*     inner_join.tbl_dt*    
# [4] inner_join.tbl_sql*  

因此，当你这样做时：

inner_join(DF, W)

或

inner_join(DT, W)

两者都调用相同的dplyr's 内部连接实现。

它给出不同结果的原因是因为DF 和W 都将x 作为因子，而DT 将x 作为字符列。

您可以通过将DF$x 更改为字符类型来重现此错误：

DF$x = as.character(DF$x)
inner_join(DF, W)
# Joining by: "x"
#   x y foo
# 1 b 1   2
# 2 b 3   2
# 3 b 6   2
# 4 c 1   9
# 5 c 3   9
# 6 c 6   9

但这似乎已经在dplyr的开发版本中得到修复。