按索引障碍划分序列

Question

给定一个序列s <- 10:1，base R 中是否有任何优雅的函数允许您为s 的索引设置障碍以划分s？

例如，如果barriers <- c(3,7)，表示分离发生在s的第3和第7位，这样期望的输出应该是一个分区列表，比如

> list(10:8,7:4,3:1)
[[1]]
[1] 10  9  8

[[2]]
[1] 7 6 5 4

[[3]]
[1] 3 2 1

请注意，如果barriers <- c(3,10)，由于第 10 位屏障之外的分区没有任何剩余，因此所需的输出应为

> list(10:8,7:1)
[[1]]
[1] 10  9  8

[[2]]
[1] 7 6 5 4 3 2 1

解决方案：感谢@RonakShah 和@GKi 提供的线索

split(s, findInterval(seq_along(s), barriers, left.open = TRUE))

Answer 1

您可以使用split 和findInterval 喜欢：

s <- 10:1
barriers <- c(3,7)
split(s, findInterval(seq_along(s), barriers, left.open = TRUE))
#$`0`
#[1] 10  9  8
#
#$`1`
#[1] 7 6 5 4
#
#$`2`
#[1] 3 2 1

barriers <- c(3,10)
split(s, findInterval(seq_along(s), barriers, left.open = TRUE))
#$`0`
#[1] 10  9  8
#
#$`1`
#[1] 7 6 5 4 3 2 1