Xtykutl

I have two tables, which have the same column names, number of rows and columns:

ID     Q1        Q2

1      aa        bb

2      cc        12

3      q         z





ID     Q1        Q2

1      A         B

2      p         l_

3      23        r

I would like to have in the next table merged those above columns with both context and separated by n, like this:

  ID     Q1        Q2

  1      aa        bb

         A         B

  2      cc        12

         p         l_

  3      q         z

         23        r

I have tried, merge, rbind, cbind, but I didn't get any good results.
Any ides how to do this?

Required result:
enter image description here

Sample data:

> d1

  ID Q1 Q2

1  1 aa bb

2  2 cc 12

3  3  q  z

> d2

  ID Q1 Q2

1  1  A  B

2  2  p l_

3  3 23  r

row-bind:

> d = rbind(d1, d2)

sort by ID:

> d = d[order(d$ID),]

replace duplicated ID by something, eg NA:

> d$ID[duplicated(d$ID)]=NA

job done:

> d

  ID Q1 Q2

1  1 aa bb

4 NA  A  B

2  2 cc 12

5 NA  p l_

3  3  q  z

6 NA 23  r

> 

If you want to create merged cells with n separating them, then this:

> cbind(ID=d1$ID, setNames(do.call(cbind.data.frame,lapply(c("Q1","Q2"), function(n){paste(d1[[n]],d2[[n]],sep="n")})),c("Q1","Q2")))

  ID    Q1     Q2

1  1 aanA  bbnB

2  2 ccnp 12nl_

3  3 qn23   znr