2つのデータフレームからマージを抽出して新しい列を作成

Question

私はこれらの2つのデータフレームを持っています。

A：

A1 A2 
1: a e 
2: b f 
3: c g 
4: d h 

B：

 B1 B2 
1:  a 1 
2: b,i,j,k 2 
3:  a,q 3,4 
4:  e 4,5 
5: c,d,f 6 

A1がB1に属したら、私はA3がこの

A3 
1 1,3,4 
2  2 
3  6 
4  6 

Answer 1

次のような情報B2を使用して新しい列を作成したいですをsapplyとループすることができます。grepを使用すると、行インデックス0 B2をサブセットに一致し、かつ使用に：

A$A3 <- sapply(A$A1, function(x){paste(B$B2[grep(x, B$B1)], collapse = ',')}) 

A 
## A1 A2 A3 
## 1: a e 1,3,4 
## 2: b f  2 
## 3: c g  6 
## 4: d h  6 

またはdata.table表記の

、

A[, A3 := sapply(A1, function(x){B[grep(x, B1), paste(B2, collapse = ',')]})][] 

あなたは私たちが直接ペースト何かをコピーすることができますように、これはより簡単に再現することで動作するはずです