私はIteratorの質問のイニシアチブに触発されている "非結合"のための data.table
a>。次に例を示します。
library(data.table)
dt1 <- data.table(A1=letters[1:10], B1=sample(1:5,10, replace=TRUE))
dt2 <- data.table(A2=letters[c(1:5, 11:15)], B2=sample(1:5,10, replace=TRUE))
setkey(dt1, A1)
setkey(dt2, A2)
data.table
は次のようになります
> dt1 > dt2
A1 B1 A2 B2
[1,] a 1 [1,] a 2
[2,] b 4 [2,] b 5
[3,] c 2 [3,] c 2
[4,] d 5 [4,] d 1
[5,] e 1 [5,] e 1
[6,] f 2 [6,] k 5
[7,] g 3 [7,] l 2
[8,] h 3 [8,] m 4
[9,] i 2 [9,] n 1
[10,] j 4 [10,] o 1
dt1
に同じキーを持つ dt2
の行を見つけるには、
オプションを TRUE
> dt1[dt2, which=TRUE]
[1] 1 2 3 4 5 NA NA NA NA NA
Matthewはこの答え、それは"非結合 "イディオム
dt1[-dt1[dt2, which=TRUE]]
dt2
に表示されないインデックスを持つ行に dt1
をサブセット化します。 data.table
v1.7.1のマシンでエラーが表示される:
Error in `[.default`(x[[s]], irows): only 0's may be mixed with negative subscripts
代わりに、オプション nomatch = 0
を使用すると、「非結合」が機能します
> dt1[-dt1[dt2, which=TRUE, nomatch=0]]
A1 B1
[1,] f 2
[2,] g 3
[3,] h 3
[4,] i 2
[5,] j 4
これは意図された動作ですか?