R + kết hợp danh sách các vectơ vào một vector đơn

Question

Tôi có một danh sách các vector số và tôi muốn kết hợp chúng thành một vectơ. Nhưng tôi không thể làm điều đó. Danh sách này có thể có một phần tử phổ biến trên phần tử danh sách. Vector cuối cùng không được thêm hai lần. Dưới đây là một ví dụ:

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

Tôi muốn kết quả cuối cùng như thế này

>result 
[1] 1 2 4 5 9 1 

tôi đã cố gắng làm những điều sau đây, mà không lo lắng về repition:

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

và

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

Không ai trong số họ lo ked. Có ai có thể giúp tôi với cái này?

Cảm ơn.

Answer 1

Một giải pháp đó là nhanh hơn so với một đề xuất ở trên:

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

Đây là nhanh hơn so với một đề xuất ở trên.

Answer 2

Bạn muốn 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

ngăn xếp sẽ làm điều này độc đáo quá, và trông ngắn gọn hơn:

stack(lst)$values 

Answer 4

câu trả lời khác sử dụng Reduce().

Tạo danh sách các vectơ:

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

Kết hợp chúng thành một vector

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

Giữ những người lặp đi lặp lại một lần duy nhất:

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

Nếu bạn muốn giữ lại mà lặp đi lặp lại một ở cuối, Bạn có thể muốn sử dụng vec[which(c(1,diff(vec)) != 0)] như trong câu trả lời của @ Rachid