如何在r中重复顺序：1,2,3,4,5,6,1,2,3,4,5,6,7,8,9,10,7,8,9,10

我正在尝试创建一个列表：1,2,3,4,5,6,1,2,3,4,5,6,7,8,9,10,7,8,9,10。我尝试了r中的重复功能，但没有任何线索。非常感谢

1）一个选项是

序列

c(sequence(c(6, 10)), 7:10)
#[1]  1  2  3  4  5  6  1  2  3  4  5  6  7  8  9 10  7  8  9 10

2）（注释中有更新的顺序

c(sequence(c(8, 14)), 9:14)
#[1]  1  2  3  4  5  6  7  8  1  2  3  4  5  6  7  8  9 10 11 12 13 14  9 10 11 12 13 14

---

3）或使用

rep

c(rep(1:6, 2), rep(7:10, 2))
#[1]  1  2  3  4  5  6  1  2  3  4  5  6  7  8  9 10  7  8  9 10

unlist(rep(list(1:6, 7:10), each = 2))

4）（或使用单个

rep进行简化

c(rep(1:6, 2), rep(7:10, 2))
#[1]  1  2  3  4  5  6  1  2  3  4  5  6  7  8  9 10  7  8  9 10

unlist(rep(list(1:6, 7:10), each = 2))

编辑：添加了急需的编号
1）这将在位置6后的1:10中插入1:10，给出请求的顺序。n=10是最大数，k=6是重复之前的最大数。（对于问题注释中的示例，使用n=14和k=8。）

2）也可以这样显式执行：

append(seq_len(n), seq_len(n), k)

c(1:k, 1:n, (k+1):n)
## [1]  1  2  3  4  5  6  1  2  3  4  5  6  7  8  9 10  7  8  9 10

如果需要处理边缘情况，如n=k=0，则改为这样编写：

c(seq_len(k), seq_len(n), seq(to = n, length = n-k))

3）另一种可能性如下。它也处理边缘情况

s <- seq_len(n)
c(head(s, k), s, tail(s, n-k))
## [1]  1  2  3  4  5  6  1  2  3  4  5  6  7  8  9 10  7  8  9 10

s模式类似于c（1,2,3,4,5,6,7,8,1,2,3,4,5,6,7,8,9,10,11,12,13,14,9,10,11,12,13,14），可以扩展。数字9必须加在最大的前面数字“8”上1，以防混淆。你回答了我的问题。非常感谢，非常感谢。这是我第一次。我在想怎么点击对不起，阿克伦。我正在努力使图案灵活。喜欢用变量来表示。重复3次：1,2,3,4,5,6,1,2,3,4,5,6,1,2,3,4,5,6,7,8,9,10,7,8,9,10,7,8,9,10？m=3，n=6，k=6+1，nt=4它工作得很好。我试过了。但是非常感谢你的回复。如何使其具有灵活性。例如，数字7基于“6”加上“1”。我的目标是通过添加number.Hi-akrun创建一个列表模式。关于这个问题，我有一个新问题。如何使用通用代码创建上述序列？例如，我不需要手动更改不同的长度：unlist（rep（list（1:6，7:10），每个=2））-例如，unlist（rep（list（list）（1:m，m+1:m+s，m+s+1:m+s+1，…，m+s+1+x:m+s+1+y），“…”表示变量“n”。非常感谢。非常感谢。我的最终目标是使用n使其灵活创建模式。非常感谢。嗨，Grothendieck，非常感谢。如何使其更灵活。例如，重复3次：1,2,3,4,5,6,1,2,3,4,5,6,1,2,3,4,5,6,1,2,3,4,5,6,7,8,9,10,7,8,9,10？就像使用变量来表示一样，重复3次：1,2,3,4,5,6,4,6,6,5,6,5,4,6,5,4,5,4,5,4,4,5，7,8,9,10,7,8,9,10,7,8,9,10？m=3，n=6，k=6+1，nt=4使用（3）中的s使用这个：c（rep（head（s，k），m），s，rep（tail（s，n-k），m）），其中m是2或3。其他解决方案也可以类似地扩展。你好，Grothendiek。它工作得很好。非常感谢您的帮助