2015-07-10 34 views
0

這裏是我與工作的代碼:重複值

A <- matrix(1:9, nrow = 3) 
A 
cbind(A,A,A) 

這給出一個輸出:

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

所需的輸出是...

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

另外我試過這個...

test <- (sapply(A , function(maybe) rep(maybe,each=3))) 
test 

其中給出的輸出:

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

的幫助深表感謝。

+0

你試圖讓第一次嘗試這種格式或者你有'A',需要交織列x的次數? – rawr

+0

我不需要首先獲得格式,我的意思是當然它會很好。但是,是的,我試圖在第一次嘗試中獲得它。 –

回答

5

使用rep與列索引:A[,rep(1:3, each=3)]