Duplicate matrix columns and put next to original in R

Question

If I have a matrix say:

> mat1=matrix(1:12, ncol=3)
> mat1
     [,1] [,2] [,3]
[1,]    1    5    9
[2,]    2    6   10
[3,]    3    7   11
[4,]    4    8   12

What do I do to replicate each column and put it next to the original so it looks like this:

     [,1] [,2] [,3] [,4] [,5] [,6]
[1,]    1    1    5    5    9    9    
[2,]    2    2    6    6   10   10
[3,]    3    3    7    7   11   11
[4,]    4    4    8    8   12   12

I'm sure this is really simple but can't see it! Many thanks.

Check out my [`Riffle` function](https://gist.github.com/mrdwab/8618900). It's overkill for this problem but still fun :-) — A5C1D2H2I1M1N2O1R2T1, Apr 09 '14 at 17:19

score 2 · Accepted Answer · answered Apr 09 '14 at 16:54

Try this:

mat1=matrix(1:12, ncol=3)
mat1[,rep(1:ncol(mat1),each=2)]
##      [,1] [,2] [,3] [,4] [,5] [,6]
## [1,]    1    1    5    5    9    9
## [2,]    2    2    6    6   10   10
## [3,]    3    3    7    7   11   11
## [4,]    4    4    8    8   12   12

Gavin Kelly · Answer 2 · 2014-04-09T16:55:57.660

0

Probably easiest to re-order a simple cbind:

cbind(mat, mat)[,order(rep(1:ncol(mat), times=2))]

or

mat[,rep(1:ncol(mat), each=2)]

edited Apr 09 '14 at 16:55

answered Apr 09 '14 at 16:50

Gavin Kelly

2,374
1
10
13

Duplicate matrix columns and put next to original in R

2 Answers2