如何合併1列上的2列

Question

我想合併2 df的在df1中包含2列和df2 1列，在這種情況下如何應用函數合併？

下面是示例情況：

df1 <- data.frame(var1=letters[1:5],var2=letters[6:10]) 
df2 <- data.frame(var3=letters[1:10]) 

假的嘗試：

merge(df1,df2,by.x=c("var1","var2"),by.y="var3",all.y=TRUE) 

如何使匹配的搜索使用DF1的兩列（VAR1 & VAR2），並運行在合併這兩個DF的df2（var3）？

希望的輸出：

var1 var2 var3 
1  a f  a 
2  b g  b 
3  c h  c 
4  d i  d 
5  e j  e 
6  <NA> <NA> f 
7  <NA> <NA> g 
8  <NA> <NA> h 
9  <NA> <NA> i 
10 <NA> <NA> j 

編輯：改進的數據（希望）：

df1 <- data.frame(var1=c(letters[1:5],rep("x",5)),var2=c(letters[6:10],rep("x",5))) 
df2 <- data.frame(var3=letters[1:10]) 

希望的輸出：

 var1 var2 var3 
1  a f  a 
2  b g  b 
3  c h  c 
4  d i  d 
5  e j  e 
6  x x  f 
7  x x  g 
8  x x  h 
9  x x  i 
10  x x  j 

Answer 1

您可以使用merge用爭論by='row.names'和sort=F（由馬修Plourde指出）不讓merge亂了順序：

> merge(df1, df2, by='row.names', sort=FALSE, all=TRUE)[c("var1", "var2", "var3")] 
    var1 var2 var3 
1  a f a 
2  b g b 
3  c h c 
4  d i d 
5  e j e 
6 <NA> <NA> i 
7 <NA> <NA> f 
8 <NA> <NA> g 
9 <NA> <NA> h 
10 <NA> <NA> j 

Answer 2

這裏的一個可能data.table溶液按照第一期望的輸出

library(data.table) 
setkey(setDT(df2), var3) 
df2[df1, `:=`(var1 = i.var1, var2 = i.var2)][] 
#  var3 var1 var2 
# 1: a a f 
# 2: b b g 
# 3: c c h 
# 4: d d i 
# 5: e e j 
# 6: f NA NA 
# 7: g NA NA 
# 8: h NA NA 
# 9: i NA NA 
# 10: j NA NA 

Answer 3

你真的只需要根據df1和cbind重新排序df2他們：

cbind(df1, df2[order(match(df2$var3, df1$var1)),, drop=FALSE]) 

如果df2有多個列，則不需要drop=FALSE。

# var1 var2 var3 
# 1  a f a 
# 2  b g b 
# 3  c h c 
# 4  d i d 
# 5  e j e 
# 6  x x f 
# 7  x x g 
# 8  x x h 
# 9  x x i 
# 10 x x j 

這種方法保持一致，對於沒有XS第一個數據集，你可以使用：

cbind(lapply(df1, `length<-`, nrow(df2)), df2[order(match(df2$var3, df1$var1)),, drop=FALSE]) 

# var1 var2 var3 
# 1  a f a 
# 2  b g b 
# 3  c h c 
# 4  d i d 
# 5  e j e 
# 6 <NA> <NA> f 
# 7 <NA> <NA> g 
# 8 <NA> <NA> h 
# 9 <NA> <NA> i 
# 10 <NA> <NA> j 

或者在一個更可讀的方式：

df1 <- lapply(df1, `length<-`, nrow(df2)) 
df2 <- df2[order(match(df2$var3, df1$var1)),, drop=FALSE] 
cbind(df1, df2)