複製在新的載體

Question

一個數據幀的行我已經開始喜歡這個數據的一列：

Initcol <- data.frame(colnames(blocA)) 

導致該

1 AUSc1 
2 AUSc2 
3 AUSc3 
4 AUSc4 
5 AUSc5 
6 AUSc6 
7 AUSc7 
8 AUSc8 
9 AUSc9 
10 AUSc10 

而且我想創建一個新的數據幀像這樣：

1 AUSc1 
2 AUSc1 
3 AUSc1 
4 AUSc2 
5 AUSc2 

基本上每個時間線重複ix次。

我嘗試這樣做：

col <- as.data.frame(matrix(NA,nrow=3*10,ncol=1)) 
for (i in 1:3) { 
    idx = floor(i/10) 
    col[idx,] <- Initcol$colnames.blocA.[idx,] 
} 

但我得到了錯誤

錯誤[.default（Initcol $ colnames.blocA，IDX。）：不正確 維數

那麼我怎樣才能使這個工作？

Answer 1

我認爲unlist(lapply())應該做這項工作。

v <- 1:10 
v2 <- unlist(lapply(v, rep, 3)) 
v2