n次複製一個數據幀

Question

我試圖複製一個數據框（動物園對象）50次作爲一個整體，並得到結果作爲矩陣，但我所嘗試的所有命令似乎不成功。我可以很容易地編寫一個能夠做到這一點的函數，但我希望使用rep可以輕鬆實現結果。

考慮以下作爲一個例子

x <- zoo(data.frame(A = c(1,2,3,4,5,6), B = c(7,8,9,10,11,12), C = c(13,14,15,16,17,18)), order.by = seq(as.Date("2012-01-01"), as.Date("2012-06-01"), by = "month")) 

#> x 
#   A B C 
#2012-01-01 1 7 13 
#2012-02-01 2 8 14 
#2012-03-01 3 9 15 
#2012-04-01 4 10 16 
#2012-05-01 5 11 17 
#2012-06-01 6 12 18 

讓我們只是試圖複製x 2倍。最終的結果我找的是：

#  [,1] [,2] [,3] 
# [1,] 1 7 13 
# [2,] 2 8 14 
# [3,] 3 9 15 
# [4,] 4 10 16 
# [5,] 5 11 17 
# [6,] 6 12 18 
# [7,] 1 7 13 
# [8,] 2 8 14 
# [9,] 3 9 15 
#[10,] 4 10 16 
#[11,] 5 11 17 
#[12,] 6 12 18 

這是我到目前爲止已經試過，但這些工作：

matrix(rep(x,2), ncol = 3, byrow = T) 

OR

matrix(rep(x,2), ncol = 3, byrow = F) 

OR

matrix(rep(x, each = 2), ncol = 3) 

任何人都可以幫忙嗎？

謝謝，

Answer 1

coredata(x)[rep(seq(nrow(x)),50),] 
     A B C 
    [1,] 1 7 13 
    [2,] 2 8 14 
    [3,] 3 9 15 
    [4,] 4 10 16 
    [5,] 5 11 17 
    [6,] 6 12 18 
...snip... 
[295,] 1 7 13 
[296,] 2 8 14 
[297,] 3 9 15 
[298,] 4 10 16 
[299,] 5 11 17 
[300,] 6 12 18 

Answer 2

replicate怎麼樣？

do.call(rbind, replicate(5, as.matrix(x), simplify=FALSE)) 

---

其實，更快（但仍然不是那麼快接受的答案）將是使的coredata()，我已經忘記了使用。

do.call(rbind, replicate(5, coredata(x), simplify = FALSE)) 

Answer 3

sapply(x, rep.int, times=3) 
#  A B C 
# [1,] 1 7 13 
# [2,] 2 8 14 
# [3,] 3 9 15 
# [4,] 4 10 16 
# [5,] 5 11 17 
# [6,] 6 12 18 
# [7,] 1 7 13 
# [8,] 2 8 14 
# [9,] 3 9 15 
# [10,] 4 10 16 
# [11,] 5 11 17 
# [12,] 6 12 18 
# [13,] 1 7 13 
# [14,] 2 8 14 
# [15,] 3 9 15 
# [16,] 4 10 16 
# [17,] 5 11 17 
# [18,] 6 12 18