Come unire 2 colonne su 1 colonna

Question

Vorrei unire 2 df dove in df1 contiene 2 colonne e df2 1 colonna, come applicare la funzione unione in questo caso?

Ecco caso del campione:

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

falso tentativo:

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

Come unire questi due df di modo che la ricerca di corrispondenza utilizza entrambe le colonne di df1 (Q1 & var2) e opera su df2 (var3)?

uscita desiderata:

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 

EDIT: dati migliorati (spero):

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]) 

uscita desiderata:

 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

È possibile utilizzare merge con l'argomento by='row.names' e sort=F (come sottolineato da Matteo Plourde) di non lasciare che merge rovinare l'ordine:

> 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

Ecco una possibile soluzione data.table secondo prima uscita desiderato

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

È davvero solo bisogno di riordinare df2 secondo le df1 e cbind loro:

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

Se df2 ha più di una colonna, non è necessario 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 

linea con questo approccio, per il primo set di dati senza i xs, è possibile utilizzare:

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 

O in un modo più leggibile:

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