data.table - ある列が別の列（リスト）にあるかどうかを調べる

Question

私はリストを含む列を持つデータテーブルを持っています。私は別の列がリスト列に存在するかどうかを確認したい。

library(data.table) 
dt <- data.table("a" = 1:3, "b" = list(1:2, 3:4, 5:6)) 

私が試した：

dt[, is_a_in_b := a %in% b] 
dt 
# a b is_a_in_b 
# 1: 1 1,2  FALSE 
# 2: 2 3,4  FALSE 
# 3: 3 5,6  FALSE 

を正しい結果が得られません。 aとb：目的のテーブルには、次の2つのベクトルに機能%in%を適用するとmapply機能を使用することができます

dt 
# a b is_a_in_b 
# 1: 1 1,2  TRUE 
# 2: 2 3,4  FALSE 
# 3: 3 5,6  FALSE 

Answer 1

だろう。実際には、ベクトル（リスト）のペアを取り、ixの各インデックスに対して、a[ix] %in% b[[ix]]の結果を生成します。

dt[, is_a_in_b := mapply('%in%', a, b)] 

> dt 
    a b is_a_in_b 
1: 1 1,2  TRUE 
2: 2 3,4  FALSE 
3: 3 5,6  FALSE