两表数据匹配

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

各位，请教大家一个问题：
已知表1：

x	pre
1	0.1
2	0.2
3	0.3
4	0.4

表2：

x_1	pre_1	x2	pre_2
1		2
4		4
3		1
1		2
2		3

根据表1，将表2中变量x_1与x_2的值与表1中变量x对应，填充上对应pre的值。
如何操作呢？

我在想用merge来做，但是，表2中值的顺序会变化，因为merge结果默认按照从小到大的顺序输出的，我需要按照表2的顺序输出结果。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：数据匹配 请教大家一个问题 Merge 输出结果 从小到大 关联表 匹配

1. library(dplyr)
   
2. 
   
3. temp = data.frame(c(1,2,3,4),c(0.1,0.2,0.3,0.4))
   
4. colnames(temp)=c("x","pre")
   
5. 
   
6. foo = data.frame(c(1,4,3,2))
   
7. colnames(foo) = "x1"
   
8. 
   
9. result = inner_join(x = foo, y = temp, c("x1" = "x"))

复制代码

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)

1. library(dplyr)
   
2. df1 = data.frame(x=c(1,2,3,4),pre=c(0.1,0.2,0.3,0.4))
   
3. df2 = data.frame(x=c(1,4,3,1,2,2,4,1,2,3))
   
4. df2 %>%
   
5.   left_join(df1,by="x")->df
   
6. head(df,nrow(df)/2) %>%
   
7.   cbind(tail(df,nrow(df)/2))->result
   
8. colnames(result)=c("x_1","pre_1","x_2","pre_2")

复制代码

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

屋檐滴语 发表于 2018-5-13 23:54

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

xwan288 发表于 2018-5-11 17:35

谢谢，看来我要学下dplyr包了

rainningpoet 发表于 2018-5-11 17:36
library(dplyr)
library(sqldf)
data2_v2=cbind(data2,order2=1:nrow(data2))

非常感谢，对于熟悉数据库的人来讲，代码很好用。

表2$pre_1=表1$pre［match(表2$x_1,表1$x)］