kombinieren bestimmte Objekte in einer Liste

Question

"a" ist eine Liste.

> a<-list(1,2,3,c(4,5),6,7) 
> a 
[[1]] 
[1] 1 

[[2]] 
[1] 2 

[[3]] 
[1] 3 

[[4]] 
[1] 4 5 

[[5]] 
[1] 6 

[[6]] 
[1] 7 

"b" ist ein Transformationsindikator.

b<-c(3,2,1) 

I Gruppe möchte (oder verbinden) Objekte in „a“ nach der Zahl in „b“, das die erste 3-Objekte Gruppe zusammen bedeutet, dann ist die nächsten zwei, schließlich das letzte, das erwartete Ergebnis ist, wie folgt:

[[1]] 
[1] 1 2 3 

[[2]] 
[1] 4 5 6 

[[3]] 
[1] 7 

kann ich nur „cumsum“ verwenden, um die drei Gruppen zusammenzufassen, aber nicht wissen, wie jedes Objekt angezeigt werden, wie oben aufgeführt. Vielen Dank.

Answer 1

Eine weitere Option ist

lapply(split(a, cumsum(sequence(b)==1)), unlist) 
#$`1` 
#[1] 1 2 3 

#$`2` 
#[1] 4 5 6 

#$`3` 
#[1] 7 

Answer 2

tapply(a, rep(seq_along(b), b), Reduce, f = `c`) 
$`1` 
[1] 1 2 3 

$`2` 
[1] 4 5 6 

$`3` 
[1] 7 

Answer 3

Ein weiterer Versuch:

grps <- rep(rep(seq_along(b), b), lengths(a)) 
relist(unlist(a), split(grps,grps)) 

#$`1` 
#[1] 1 2 3 
# 
#$`2` 
#[1] 4 5 6 
# 
#$`3` 
#[1] 7