替代与其他数据帧的列数据中的R

Question

一个数据帧的一列数据

我的数据帧DF1是如下

A B 
#1 1 3,4 
#2 2 5 
#3 3 4,1 
#4 4 1,3 
#5 5 2 

我想从数据帧下面替换ID的A和B列号DF2

ID DATA 
#1 101 data1 
#2 503 data2 
#3 890 data3 
#4 1164 data4 
#5 5367 data5 

代替1,2,3 ... DF1应包含数据如下（预期输出只需更换在A中所列的数字，B列具有相应的ID）

 A B 
#1 101 890,1164 
#2 503 5367 
#3 890 1164,101 
#4 1164 101,890 
#5 5367 503 

请让我来实现这一点。由于

Answer 1

第一列是直截了当：

df1$A <- df2[df1$A,"ID"] 

对于必须使用strsplit和paste因为多值列第二栏：

df1$B <- sapply(df1$B, function(s) 
    paste( 
     df2[strsplit(as.character(s),",")[[1]],"ID"], 
     collapse=",")) 

df1 
    A  B 
1 101 890,1164 
2 503  5367 
3 890 1164,101 
4 1164 101,890 
5 5367  503