Zerlegen numerischer Vektoren in R

Question

Wenn ich einen Vektor habe, c(1,2,3,5,7,9,10,12)... und einen anderen Vektor c(3,7,10), wie würde ich folgendes erzeugen:

[[1]]
1,2,3

[[2]]
5,7

[[3]]
9,10

[[4]]
12

Beachten Sie, wie 3, 7 und 10 die letzte Zahl jedes Listenlements werden (außer der letzten). Oder in gewisser Weise der "Breakpoint". Ich bin sicher, dass es eine einfache R-Funktion gibt, von der ich nichts weiß oder die ich vergessen habe.

Answer 1

Hier ist eine Möglichkeit, cut und split zu verwenden:

split(x, cut(x, c(-Inf, y, Inf)))
#$`(-Inf,3]`
#[1] 1 2 3
#
#$`(3,7]`
#[1] 5 7
#
#$`(7,10]`
#[1]  9 10
#
#$`(10, Inf]`
#[1] 12

Answer 2

Könnte tun

teile(x, schneide(x, einzigartig(c(y, reichweite(x)))))

## $`[1,3]`
## [1] 1 2 3

## $`(3,7]`
## [1] 5 7

## $`(7,10]`
## [1]  9 10

## $`(10,12]`
## [1] 12

Answer 3

Ähnlich wie die Antwort von @beginneR, aber mit findInterval anstelle von cut

split(x, findInterval(x, y + 1))
# $`0`
# [1] 1 2 3
# 
# $`1`
# [1] 5 7
# 
# $`2`
# [1]  9 10
# 
# $`3`
# [1] 12