Jak scalić 2 kolumny na 1 kolumnie

Question

Chciałbym połączyć 2 df, gdzie w df1 zawiera 2 kolumny i df2 1 kolumny, jak zastosować funkcję scalania w tym przypadku?

Oto przykładowy przypadek:

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

Fałsz próba:

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

Jak połączyć te dwa df, tak że poszukiwania dopasowanie używa obu kolumn DF1 (zm1 & var2) i działa na df2 (var3)?

Pożądany wyjściowa:

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: Lepsze dane (mam nadzieję):

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

Pożądany wyjściowa:

 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

Można użyć merge z argumentem by='row.names' i sort=F (jak wskazano przez Matthew Plourde), aby nie pozwolić merge bałagan kolejność:

> 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

Oto możliwe data.table rozwiązanie jak za pierwszym pożądanym wyjściem

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

Naprawdę wystarczy zmienić kolejność df2 według df1 i cbind im:

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

Jeśli df2 ma więcej niż jedną kolumnę, nie trzeba 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 

Zgodnie z tym podejściem, dla pierwszego zestawu danych bez xs, można użyć:

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 

Albo w bardziej czytelny sposób:

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