Split einen Vektor in ungleiche Stücke in R

Question

Ich habe die gleiche Frage wie here, außer ich möchte die Variable Split-Längen mit einem anderen Vektor angeben. So etwas wie folgt aus:

example.data<-paste("ex",1:10,sep="") 
example.data 
[1] "ex1" "ex2" "ex3" "ex4" "ex5" "ex6" "ex7" "ex8" "ex9" "ex10" 
split.lens <- c(4,2,1,3) 

sollte mir die folgende Liste geben:

result.list 
[[1]] 
[1] "ex1" "ex2" "ex3" "ex4" 

[[2]] 
[1] "ex5" "ex6" 

[[3]] 
[1] "ex7" 

[[4]] 
[1] "ex8" "ex9" "ex10" 

Ich kann nicht den besten Weg finden, um dies zu tun mit split. Irgendwelche Ideen?

Danke!

Answer 1

split(example.data, rep(1:4, c(4,2,1,3))) 

Answer 2

Ich habe eine allgemeine Methode, um die Entwickler-Version von qdapTools hinzugefügt verschiedenen Datentypen an bestimmten Stellen zu spalten. Hier ist dieser Ansatz:

## install qdapTools 
devtools::install_github("trinker/qdapTools") 

library(qdapTools) 
loc_split(example.data, head(cumsum(split.lens) + 1, -1)) 

## [[1]] 
## [1] "ex1" "ex2" "ex3" "ex4" 
## 
## [[2]] 
## [1] "ex5" "ex6" 
## 
## [[3]] 
## [1] "ex7" 
## 
## [[4]] 
## [1] "ex8" "ex9" "ex10" 

Die Funktion im Wesentlichen wickelt Code ähnlich @ RStudent Antwort, wenn auf Vektoren angewendet.