生成的重复序列

Question

我需要，使用R，生成以下格式的向量：

1:10, 1:10, 11:20, 11:20, ... 121:130, 121:130 

是否有比创建12个载体和重复然后每一个的两倍更简单的方法？

Answer 1

这是你想要的吗？

unlist(lapply(rep(seq(1, 121, by=10), each=2), function(x) seq(x, x+9))) 

Answer 2

我认为这会对你有用。

x <- ((0:12)*10)+1 
y <- x + 9 

repeatVectors <- function(x,y){ 
    rep(seq(x,y),2) 
} 

z <- mapply(repeatVectors, x,y) 
z <- as.vector(z) 

Answer 3

你也可以这样做：

rep(1:10, 26) + rep(seq(0,120,10), each=20) 

Answer 4

或者，你可以使用的rep和outer，如组合：

c(outer(1:10,rep(0:12,each=2),function(x,y)10*y+x)) 

Answer 5

另一种方式：

x <- matrix(1:130, 10, 13) 
c(rbind(x, x)) 

---

可能更有效的版本：

x <- 1:130 
dim(x) <- c(10,13) 
c(rbind(x, x)) 

Answer 6

使用split的方法是

unlist(rep(split(seq_len(130), rep(1:13, each=10)), each=2), use.names=FALSE)