R + połącz listę wektorów w jeden wektor

Question

Mam jedną listę wektorów numerycznych i chcę połączyć je w jeden wektor. Ale nie jestem w stanie tego zrobić. Ta lista może zawierać jeden element wspólny dla elementu listy. Ostateczny wektor nie powinien ich dodawać dwa razy. Oto przykład:

>lst 
`1` 
[1] 1 2 
`2` 
[2] 2 4 5 
`3` 
[3] 5 9 1 

chcę końcowy wynik jak to

>result 
[1] 1 2 4 5 9 1 

Próbowałem robić następujące rzeczy, bez martwienia się o repition:

>vec<-vector() 
>sapply(lst, append,vec) 

i

>vec<-vector() 
>sapply(lst, c, vec) 

Żadne z nich wor ked. Czy ktoś może mi w tym pomóc?

Dzięki.

Answer 1

Rozwiązanie, które jest szybsze niż jednej proponowanej powyżej:

vec<-unlist(lst) 
vec[which(c(1,diff(vec)) != 0)] 

To szybciej niż jednej proponowanej powyżej.

Answer 2

Chcesz RLE:

rle(unlist(lst))$values 

> lst <- list(`1`=1:2, `2`=c(2,4,5), `3`=c(5,9,1)) 
> rle(unlist(lst))$values 
## 11 21 22 31 32 33 
## 1 2 4 5 9 1 

Answer 3

stos zrobi to zbyt ładnie, i wygląda bardziej zwięzły:

stack(lst)$values 

Answer 4

Inna odpowiedź za pomocą Reduce().

Stwórz listę wektorów:

lst <- list(c(1,2),c(2,4,5),c(5,9,1)) 

połączyć je w jednym wektorze

vec <- Reduce(c,lst) 
vec 
# [1] 1 2 2 4 5 5 9 1 

przechowywać powtarzające się te tylko raz:

unique(Reduce(c,lst)) 
#[1] 1 2 4 5 9 

Jeśli chcesz zachować to powtórzone jeden na końcu, możesz użyć vec[which(c(1,diff(vec)) != 0)], jak w @ Rachid's odpowiedź