9

I want to write two vectors of different length with partly equal values into one data frame. The same values should be written in the same row.

ef1 <- c('A1', 'A2', 'B0', 'B1', 'C1', 'C2')
ef2 <- c('A1', 'A2', 'C1', 'C2', 'D1', 'D2')

If I write them in one data frame, it looks like this:

df <- data.frame (ef1, ef2)
> df
  ef1 ef2
1  A1  A1
2  A2  A2
3  B0  C1
4  B1  C2
5  C1  D1
6  C2  D2

But what I want is this:

> df
  ef1 ef2
1  A1  A1
2  A2  A2
3  B0  NA
4  B1  NA
5  C1  C1
6  C2  C2
7  NA  D1
8  NA  D2

I'm grateful for any help.

phiaba
  • 93
  • 3
  • Related: [Align two vector with common elements](https://stackoverflow.com/questions/51990786/align-two-vector-with-common-elements) – Henrik Jul 14 '20 at 10:59

2 Answers2

6

One option is match

(tmp <- unique(c(ef1, ef2)))
# [1] "A1" "A2" "B0" "B1" "C1" "C2" "D1" "D2"

out <- data.frame(ef1 = ef1[match(tmp, ef1)],
                  ef2 = ef2[match(tmp, ef2)])

Result

out
#   ef1  ef2
#1   A1   A1
#2   A2   A2
#3   B0 <NA>
#4   B1 <NA>
#5   C1   C1
#6   C2   C2
#7 <NA>   D1
#8 <NA>   D2
markus
  • 25,843
  • 5
  • 39
  • 58
1

Another solution, using dplyr's full_join. The idea is to artificially create a merging column and then make a full join.

ef1<-tibble(a=ef1,ef1=ef1)
ef2<-tibble(a=ef2,ef2=ef2)

ef1 %>% 
  full_join(ef2,by="a") %>% 
  select(ef1,ef2)

# A tibble: 8 x 2
  ef1   ef2  
  <chr> <chr>
1 A1    A1   
2 A2    A2   
3 B0    NA   
4 B1    NA   
5 C1    C1   
6 C2    C2   
7 NA    D1   
8 NA    D2
Maël
  • 45,206
  • 3
  • 29
  • 67