如何拆分向量并保持每次拆分的开始和结束

Question

假设我有一个类似下面的矢量

x <- 1:100

我想将它拆分为20的序列，我可以使用以下内容来完成它

seq(1,100, by=20)
#[1]  1 21 41 61 81

我想要的是打印每个开始和结束的分裂

for (i in seq(1,length(x), by=20)){
 print(x[i])
}

然而，它并没有给我我需要的答案，我需要这个

1:20
21:40
41:60
61:80
81:100

有办法吗？

Answer 1

paste(seq(1,100, by=20), seq(20, 100, 20), sep = ':')
#[1] "1:20"   "21:40"  "41:60"  "61:80"  "81:100"