library(dplyr)
library(sqldf)
data2_v2=cbind(data2,order2=1:nrow(data2))

data3=sqldf("select t1.x_1,t2.pre as pre_1
             t1.x2,t3.pre as pre_2
            from data2_v2 t1 left join data1 t2 on t1.x_1=t2.x
            left join data1 t3 on t1.x2=t3.x")%>%arrange(order2)%>%select(-order2)

把你的表2改造下，处理完了再改回来。表2不符合表设计范式。

非常感谢！代码很好理解，只用dplyr包就可解决。